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Avant-propos 


Grâce à ses incroyables capacités graphiques et sonores, votre 
ORIC est particulièrement doué pour conquérir le monde des jeux sur 
micro-ordinateurs. “ORIC à la conquête des jeux” se propose de 
vous guider dans cette jungle peuplée d'insectes voraces, de vais- 
seaux spatiaux, de couleurs et de sons étranges. 


La première partie de cet ouvrage contient quinze jeux pour 
ORIC-1, jeux de réflexion ou d'action, qui bien sûr utilisent les dons 
musicaux et graphiques de votre micro-ordinateur préféré. Tous ces 
jeux fonctionnent sur n'importe quel ORIC-1 standard, il n'est pas 
nécessaire de posséder un joy-stick. 


La seconde partie contient des renseignements qui vous seront 
fort utiles pour programmer vos propres jeux, les trucs et les ficelles 
des modes graphiques, les adresses correspondantes. Vous saurez 
aussi comment est organisée la mémoire de l'ORIC-1, comment 
écrire un programme basic qui fabrique des lignes de programme 
basic, comment accélérer vos programmes et utiliser le langage 
machine. 


Pour en savoir plus sur l'ORIC, je ne saurais vous recommander 
assez la lecture des livres La conduite de l'ORIC-1 (même collec- 
tion) qui vous assurera la maîtrise de votre ORIC et de son basic, 
tandis que “L'assembleur facile du 65@2' vous livrera tous les 
secrets du microprocesseur 6502, cerveau de votre micro-ordinateur. 
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Quelques jeux pour ORIC 





1.1 GLOUTON 


Le glouton est un petit insecte extrêmement vorace, que l’on trouve 
généralement dans les mémoires des micro-ordinateurs. Il se nourrit 
exclusivement de chiffres, qu’il avale goulûment. Pour ce jeu, le glouton 
se déplace sur votre écran, vous le dirigez grâce aux quatre touches 
flèches. Il faut amener l’insecte sur les chiffres qui apparaissent, en 
prenant bien soin d’éviter les étoiles, car le glouton ne les apprécie pas du 
tout. 


Chaque chiffre dévoré vous donne autant de points, il faut bien sûr 
accumuler le plus de points possibles. 


Au début du jeu, un nombre entre 1 et 29 vous est demandé. Il règle 
la vitesse d’apparition des chiffres et des étoiles. Frappez ce nombre, puis 
RETURN. A la fin, on vous demande si vous désirez rejouer. Frappez 
alors la touche ” O0” ou ” N”. 


Avant que vous ne tapiez le programme, voici quelques explica- 
tions sur son fonctionnement. Les lignes 19 à 129 sont des initiali- 
sations : 


49 S est l'adresse-mémoire de la définition du caractère @, qui a 64 
pour code ASCII. Pour faire apparaître le glouton, on va redéfinir @ 
pour qu'il figure l'insècte. 


59 Ces huit nombres sont les valeurs des huit octets nécessaires pour 
redéfinir @ en glouton. 


69 On place en mémoire les valeurs précédentes. Le caractère ” @ “est 
remplacé par le caractère ‘’glouton‘. 


89 On fait passer l'écran en mode texte, s'il n'y était pas déjà, la couleur 
de l'écran est verte tandis que celle de l'encre est noire. Le nombre 
64, qui est rangé dans la variable G, est le code ASCII du caractère 
“’glouton”. Ce code servira dans la suite du programme. 


99 On lit un nombre compris entre 1 et 29, qui est rangé dans F, puis on 
efface l'écran. 


199 Ceci élimine le ‘’plop” qui retentit à chaque fois que l'on enfonce une 
touche. Le programme utilise les ordres PING et EXPLODE, aussi le 
“plop” est supprimé afin qu'il n'interrompe pas les bruits de 
clochette et d'explosion, lorsque vous frappez une touche. 


Le jeu lui-même est constitué des lignes 139 à 329. Ce bloc de 
programme est contenu dans une boucle qui débute à la ligne 149 et se 
termine en 329. La boucle est exécutée 19 fois, après quoi le jeu est 
fini. Nous allons maintenant détailler ce qui se produit à l’intérieur de 
cette boucle. 


159 260+RND(1) est un nombre aléatoire compris entre @ et 19.999999. 
Si ce nombre est plus petit que 2@-F, on se branche en 199, sinon les 
lignes 160 à 180 seront exécutées. Si par exemple F vaut 1, 29-F 
vaut 19 et le test est en moyenne vérifié 19 fois sur 29. Si F vaut 19, 
29-F vaut 1 et le test sera vérifié 1 fois sur 29 en moyenne. En modi- 
fiant la valeur de F, on peut donc changer le nombre moyen de fois ou 
le test est vérifié. 


Les lignes 169 à 189 font apparaître un chiffre ou une étoile en un 
point quelconque de l’écran. 


169 Q est un nombre compris entre 1 et 37.9999999 tandis que R est lui 
compris entre @ et 26.9999999. Le chiffre ou l'étoile apparaîtra à la 
position (Q,R) de l'écran, qui se trouve en mode texte. 


179 Cest compris entre 49 et 57.9999999, Puis, si RND(1)>.5, ce qui se 
produit en moyenne une fois sur deux, on place 179 dans C. 


180 Il faut se rappeler que les fonctions SCRN et PLOT utilisent la partie 
entière de leurs arguments. Ainsi: 


— Q donne un entier compris entre 1 et 37 

— R donne un entier compris entre @ et 26 

— C donne un entier qui est: 
* soit compris entre 49 et 57 (code ASCII des chiffres 1 à 9) 
+ soit égal à 179 (étoile en inverse vidéo). 


G contient le code ASCII du glouton. Aussi, si le glouton ne se 


trouve pas en (Q, R), on y place le caractère qui a C pour code ASCII, 
c’est-à-dire un chiffre ou une étoile. 


199 


On se préoccupe de savoir si vous avez frappé une touche, on exé- 
cute la lecture du clavier A$—KEY$. Si aucune touche n'a été frappée, 
A$ est une chaîne vide et l'on va en 320. 


Si vous avez frappé une touche, normalement une flèche, on 


exécute les lignes 299 à 319 qui déplacent le glouton suivant la touche. 


200 


219 


220 


230 


249 


260 


270 


289 


299 
300 


On place dans A le code ASCII de la touche frappée. 


Si le code ASCII est celui de la touche ‘flèche à gauche” et si 
l'abscisse X du glouton est supérieure à 1, on décrémente cette 
dernière. 


Si le code ASCII est celui de la touche ‘flèche à droite” et si 
l'abscisse X du glouton est inférieure à 38, on incrémente. 


Si le code ASCII est celui de la touche ‘flèche en bas” et si 
l'ordonnée YŸ du glouton est inférieure à 26, on incrémente Y. 


Si le code ASCII est celui de la touche ‘flèche en haut” et si 
l'ordonnée Y du glouton est supérieure à @, on décrémente Y. 


On met dans V le code du caractère qui est en (X, Y) puis on place le 
glouton en (X, Y). 


(X1,Y1) est la position précédente du glouton, où l'on place un blanc 
pour effacer le glouton précédent. 


Si V est supérieur à 128, on a un caractère en inverse vidéo. On ôte 
128 pour obtenir un code ASCII compris entre @ et 127. 


Si V vaut 42, on a rencontré une étoile et on se branche en 340. 


Si l'on n'a pas rencontré un chiffre, de code ASCII compris entre 49 
et 57, on va en 32. 


319 “1"a 
57. Ai 


pour code ASCII 49, "2" est codé par 59, … 9" est codé par 
nsi V-48 vaut-il 1 si l'on a rencontré ‘1’ sur l'écran, 2 si l'on a 


rencontré "2". 


Après 


avoir exécuté le jeu, @ a été remplacé par le glouton. La 


ligne 410 réinitialise lORIC comme lorsque vous frappez ” reset”. 


10 

20 

50 

40 

50 

60 

70 

80 

90 

100 
1410 
120 
150 
140 
150 
160 
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250 
240 
250 
#60 
270 
280 
290 
F00 
310 
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40 


REM GLOUTONX #XK XX OK HR OHONHOKOKKACKK HOKOKOKK 

REM DEFINITION HESTIOLE-----—————— 

G=48080+8%é64 

DATA SS, 189, 12,12,12,12,19,255 

FOR IsS TO S+7:READV:FOKRET, Vs NEXT 

TEXT: CLS: FAFER Z3INE Oo: Gé: Fze0 

FRINTAINEUT Force. (1-20) "hs CLUS 
FRINT CHKS# (6): 
X=l:Y=lsXi=X:Vi=Ys PLOT X,Y,6G 


REM JEU----- 
FOR COUF=1 TO 1000 

IF SOKRND(1)220-F THEN 190 

Ge 1+57KRND (1) : R=Z7XRND (1) 
C=49+9KXRND (1) : IFRND (1) +. STHENC=170 
IF SCRN(G,R)2G THEN FLOT GR,C 
A$=HEYS:1F A$="" THEN 220 

A=ASC (AS) 

IF A=BANDX:1 THEN X=X-1:GOTO 260 
IF A=GANDX{28 THEN X=X+1:G0OT0 260 
IFA=1O0ANDY£26 THEN Y=Y+1:G0T0 260 
IFA=11ANDY:O THEN Y=Y-1:GOTO 260 
GOTO 220 

V=SCRN(X,Y):PLOT X,Y,G 

FLOT X1,Y1,32:X1=X:Yi=V 

IF V5128 THEN V=V-128 

IF V=42 THEN 340 

IF V£49 OR V:57 THEN 220 
ZAF:F=P+V-48:GOTO 320 

NEXT COUF:WAIT 200:G0T0 250 


EXFLODE:WAIT 300 


F50 CLS: PRINT: PRINT: PRINT: PRINT :FRINT 
360 FRINT SFC(17)s "Score: ":Fs:CHRS# (6) 
270 FRINT:FRINT 

380 FRINT'Voulerz-vous rejouer (O/N) " 
390 GET A$:IF A$="0" THEN 80 

400 IF ASEE'N" THEN FING:GOTO 390 

410 CALL DEEF CKFFFA) 


Attention à ne pas oublier le ; de la ligne 19. 


1.2 RÉFLEXE 


Connaissez-vous bien la configuration du clavier de votre ORIC ? 
Ce petit jeu va permettre de le vérifier. 


Au début du jeu, on vous demande le délai d’attente maximum. 
Tapez 2.5 puis RETURN. A chaque fois que Z AP retentit, un caractère 
apparaît quelque part sur l'écran. Il faut frapper la touche correspon- 
dante avant que le délai maximum ne soit écoulé. Vour remarquez que 
pendant le jeu le mot CAPS situé habituellement en haut à droite de 
l'écran a disparu. En effet, le clavier est en mode minuscules”, les 
touches alphabétiques donnent des lettres minuscules. Pour obtenir une 
lettre majuscule, il faut utiliser SHIFT, tout comme avec une machine à 
écrire. Lorsque vous serez familiarisé avec ce jeu, vous pourrez utiliser 
un délai plus court, par exemple 1.7. 


Voyons maintenant comment fonctionne ce programme. Les lignes 
19 à 170 servent à initialiser le jeu. 


159 32 est le code ASCII du caractère blanc. B$ est donc une chaîne 
constituée de trois caractères blancs, qui sera utilisée en 230. 


169 CHR$(17) supprime le curseur tandis que CHR$(20) fait passer en 
minuscules. 


Les lignes 189 à 249 ont pour but de tirer au hasard un caractère, et 
de l'afficher n’importe où sur l’écran. 


199 On obtient l'abscisse X%, qui est un entier compris entre 2 et 35. 


209 
219 
220 


230 


249 


On obtient ensuite l'ordonnée Y%, entier compris entre 3 et 23. 
C% est le code ASCII du caractère, compris entre 33 et 125. 


La valeur 96 correspond au caractère (©, qui ne figure pas sur le 
clavier. On tire donc un nouveau code. 


Cette boucle est exécutée trois fois, et remplit de blancs un carré de 
3 x 3 caractères centré en (X%, Y%). En effet, la chaîne B$ contient 3 
blancs. 


Le caractère tiré au sort est affiché, en (X%, Y%). Comme l'on a effacé 
un carré autour de cette position à la ligne précédente, le caractère ne 
peut apparaître collé à un autre qui se trouvait déjà sur l'écran, ce qui 
simplifie le jeu. 


De 269 à 289 on boucle en attendant que vous frappiez le caractère 


qui a été tiré. Si vous ne faites rien, on passe alors à la fin du programme, 
de 39% à 419, qui affiche le nombre de caractères trouvés. 


320 


339 


349 
369 


370 


389 


Le caractère CHR$(10) permet d'obtenir des caractères double 
hauteur. 


convertit le score S en une chaîne de caractères précédée de 
CHRS(2). 


On élimine le caractère CHR$(2) situé en tête de la chaîne. 


On calcule l'abscisse X où il faut afficher la chaîne pour qu'elle soit 
placée au milieu de l'écran. 


On affiche deux fois la chaîne A$ pour obtenir des caractères double 
hauteur. 


On rétablit le curseur et CAPS qui avaient été supprimés en 160. 


19 REM KREFLEXE XX XX OHOK KR ACOKHOK KO KOKOK AONC NOK K 
PAT 

30 FAFER Zs1INE 0 

40 CLS: FRINT: PRINT: FRINT 

30 FRINT" Des caracteres 
&80 FRINT'apparaissent" 

70 FRINT'au hasard sur l'ecran." 

80 FRINT" Il faut frapper le plus" 
90 FRINT'vite possible sur la touche" 
100 FRINT'correspondante.," 


(D 
b) 


110 FRINT 

120 FRINT" --ïles lettres majuscules" 
LEO PRINT ! s'obtiennent avec SHIFT" 
140 FRINT: INPUT "Del ai maximum "3 DELAI 
150 Bei: BS=CHRS CE) +CHRS CE) +CHRS (EH) 
1640 Seûs CLS: PRINT CHARS (17) ; CHKS (270) 
d70R: 

180 FING:WAIT 100 

190 Xe TNT CEA XRND € 1) 5 

OO NARI+INT CE KRND (1) ) 

210 CheHi+ TNT CGEXRND (15) 

ï TE G4 THEN 219 

FORTE 1 TOI: PLOTX 4-1, YA+I, RH: NEXT 
FLOT XX, V7, C#3:Z4FP 

FOR lsi TO DELAI STEF ,002 
IFÉEY#=CHRS CC) THENS=S+ 1: GOTOI80 
NEXT TI 

EXFLODE: WAIT Z00 

CLS: PAFER 13:INE 7 

BBeCHES (10) SCORE: M+CHRS (ED 
BeSTRS (5) 

ee LENCSCS) 15 



















X=18- INT (LEN (A) /2) 
FLUT Hull esFLOT K, 12,48 
RINT CHR (17 ) : CHRS$ (70) 





400 F FINT "IL fallait frapper !": 
410 FRINT CHKS (C0) 


1.3 CAMÉLÉONS 


Comme chacun le sait, les caméléons sont de petits animaux qui 
ont horreur de se déplacer. Pour se nourrir, ils se contentent d’attendre 
qu’un insecte passe devant eux, il n’y a plus alors qu’à déplier sa longue, 
longue langue pour happer l’insecte et en faire son repas. 


L’ORIC vous demande tout d’abord: Force(1-20)? Frappez par 
exemple 2 puis RETURN. Il apparaît alors 7 caméléons rangés à droite 
de votre écran. Il y a aussi un insecte. Le caméléon situé en face de 
l’insecte (qui est en fait un glouton) doit l’attraper. Vous devez frapper 
deux touches : le numéro du caméléon qui est situé face à l’insecte, puis 
la distance glouton-caméléon. Le numéro du caméléon est un numéro 
compris entre 1 et 7, 1 pour le caméléon rouge, 2 pour le vert, …, 7 pour 
le blanc. La distance glouton-caméléon est comprise entre 1 et 9. 


Ayant précisé qu’il ne faut pas frapper la touche RETURN après 
les deux chiffres, il ne me reste plus qu’à vous souhaiter un bon appétit ! 


Voici maintenant quelques explications sur la structure du 
programme. Tout d’abord, quelques initialisations, de 19 à 129. 


79 MAX est le délai d'attente maximum pour la frappe d'une touche. Cette 
valeur est utilisée en 190 et 220. 


89 On affiche les caméléons. Un caméléon est formé 4 x 2 caractères. 
Les quatre caractères supérieurs sont dans H$, que l'on affiche. On a 
affiché devant le caractère dont le code est |, qui définit la couleur. 


90 On affiche comme précédemment le caractère de code ASCIII, qui 
définit la couleur. Puis les quatre caractères inférieurs du caméléon, 
qui sont dans P$, sont affichés. 


Le jeu lui-même est une boucle exécutée quarante fois qui s’étend 
des lignes 149 à 430. 


En 159-169, on calcule la position (X, Y) de l’insecte, que l’on 
affiche à la ligne 179. 


De 199 à 219, on attend que vous frappiez le numéro du caméléon, 
alors que de 229 à 249, on attend la frappe de la distance insecte- 
caméléon. 


De 269 à 280, on vérifie que le numéro est bien compris entre 1 et 
7, que la distance est bien comprise entre 1 et 9, puis ces deux quantités 
sont placées dans les variables A et B. 


De 394 à 399, on déplie et on replie la langue du caméléon. 
309 Y1 est l'ordonnée de la langue, qui est horizontale. 


8 


319 La lan 


gue va se déplier de la droite vers la gauche, depuis X1=32 


jusqu'à X1—32—3+B. 


329 Produit une note. 


339 L$ contient un caractère qui forme un élément de la langue. 


34@ La langue est dépliée. On note dans V le code ASCII du caractère 
situé juste à gauche de l'extrémité de la langue. Ce caractère est soit 
un blanc soit l'insecte. 


359 La langue va se replier de X1—=32—3+B à 32. 
36% Identique à 320. 
379 On affiche V et un blanc, de code 32. 


De 49 à 429, on regarde si le caractère attrapé est 115, c’est-à-dire 
l’insecte. Si oui, on incrémente le score. En 424, on efface la position 
(X, Y), au cas où le caméléon n’aie pas capturé l’insecte, et on fait cesser 


tout bruit. 


10 
20 
50 
40 
0 
&0 
70 
80 
90 
100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 


250 


a ect 


Puis, on continue. 


REM CAMELEONS XX Kkk HHOHHOKHK AK KO K 

TEXT:FAPER O:INÉ 1:CLS:GOSUE 1000 

REM TRACE CAMELEONS ET INITS------ 

CLS: INPUT'"'Force (1-20) ":;F:CLS 

MAX=2000/ (F+5) : FOR I=i TO 7 

PLOT HS, ZXI, I: FPLOT 34,3X1,H$ 

FLOT ZE, 3KkI+1,1:FPLOT 34,3XI+1,F# 
NEXT I:SC=0 


REM JEU eee one nee 2 a om 
FOR COUF=1 TO 40: Z=FRE("") 
X=1+INT(OXRND (1) ): X=TKX+1 
Yel+INT C7ZXRND (1) ) 3 Y=EXY 

FÉOTEXAMS LE 

FOR Izi TQ MAX 

AS=HEYS:IF A$S<:"" THEN 220 

NEXT I:GQOTO 4%0 

FOR Jz=i TO MAX 

H=HEYS#: IF H$<:"" THEN 260 


10 


240 
250 
260 
270 
280 
290 
AC) 
310 
RU) 


AE5O 


540 
350 
360 
370 
F0 
390 
400 
410 
4£0 
450 
440 
450 
480 
#70 
480 
490 
Ter) 
910 
1000 
1010 
100 
1070 
1040 
1950 
1060 


NEXT J:GOTO 420 

IF A$<"i" OR Â#:"7" THEN 420 
IF B$<"1" OR BS:"OG" THEN 420 
A=VAL CAS) : HE VAL (R#) 


Yi TxA 

FÜR X1=#22 TO Z2-TXxE STEF —1 

SOUND 1, 1000 C(X1+24), 0: FLAYI, 0,7, 0 
FLOTTE NEXTEX 1 

VeSCRN CX1, Y1) 

FOR X1=T2-TXER TO ZE 

SOUND 1,1000/ €X1+7),0:FLAYI,0,7, 0 
FLOTEXTISMNE Ve LOTEXI EMA 

NEXT X1 

IF VEr11S THEN 420 

FLOT EE, Y1,72:SCeSC+l: ZAF:WAIT 70 
FLOTEXS NS SPP LANLO SOC 

NEXT COLUF 
FPÉONMET2-1Scores rt ESTR# CSC) 

FLOT &,15, "On recommence (O/N)i 7° 
GET AS:1F A$="0" THEN 60 

IF ASESUN" THEN FING:GOTO 470 
CLS: FAFER Z:INE O:CALL K#F89H 

END 


REM DEFINITION CARACTERESXKX# HR X 
DATA: 35.18, 12, 09,12, 12 10,55 
DATA 0,0,0,0,0,63%,0,0 

DATA 0,0,5%,14,63,63,15,3 

DATA Q,0,48, 24, 60, 60, 25, 6% 

DATA 0,020, 0407400607 D0 

DATA 6,15,11,10,8,8.8,8 


1070 DATA 215 %7:14,28,56,48 


1080 
1090 
1100 
LEE 
1120 


DATA 55,6%,29,55,20,7,0,0 
DATA 63,45,55,21,67,56,0,0 

DATA 8,40,56,56,28,14,7,% 
S=46080+1154k8:F-S+104K8-—1 

FOR 1=8 TO F:READ V:FPOKEI, ViNEXT 


11:50 
1140 
1150 
1160 
1170 
1180 





TSECHRS (115) :L$S=CHRS#E (116) 
H$=CHKS (117) +CHRS (118) +CHRS (119) 
HÉ=HS+CHKS (120) 

FHECHRS (121) +CHRS (122) +CHRS# (125) 
F$=Pé$+CHKRS# (124) 

RETURN 


Voici l’aspect du caméléon et de l’insecte: 














—+ 




















1.4 CACHE-TAMPON 


Je suis très fier de vous présenter CACHE-TAMPON, un jeu tout à 
fait original, comme vous allez pouvoir en juger : 

— Pas de caméléon, de glouton, il n’y a rien à manger. Ce jeu est 
reposant pour l'estomac. 
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— Aucun dessin. On peut jouer sans regarder l’écran, vous pouvez 
même l’éteindre. Ce jeu est reposant pour les yeux. 


— Aucune stratégie, tactique ou méthode, il n’y a pas à réfléchir. 
Ce jeu est reposant pour l’esprit. 


Le jeu utilise le générateur programmable de sons de l’ORIC, qui 
est capable de produire simultanément trois notes. Imaginez que trois 
objets sont cachés derrière l’écran. A chacun de ces objets est associé 
une note, plus le curseur est proche de l’un des objets et plus la note asso- 
ciée est aiguë. Vous pouvez déplacer le curseur avec les touches flèches, 
il faut l’amener sur les objets cachés. 


Tout d’abord, des lignes 19 à 99, on trouve quelques initialisations. 


39 CHR$(6) supprime le bruit produit par le clavier lorsque l'on enfonce 
une touche. En effet, ce bruit est aussi produit par le générateur 
programmable, il interromprait les trois notes. 


40 8 et 9 sont les codes ASCII des touches ‘flèche à gauche” et ‘’flèche 
à droite”. On les range dans les chaînes G$ et D$. 


59 De même les codes ASCII des touches ‘flèche en bas” et ‘flèche en 
haut” sont placés dans les chaînes B$ et HS. 


69 X et YŸ contiennent la position du curseur sur l'écran. X(3) et Y(3) 
servent à stocker la position des trois objets, tandis que F(3) est utilisé 
pour indiquer si les objets ont été trouvés ou non. 


70 à 80 Les coordonnées des trois objets à découvrir sont tirées au hasard 
et stockées dans les deux tableaux. 


La boucle de jeu s’étend des lignes 199 à 280. Il faut déplacer le 
curseur suivant la flèche qui a été enfoncée, regarder si le curseur ne se 
trouve pas sur l’un des objets, calculer la distance du curseur aux objets 
non trouvés, et produire les notes correspondantes. 


119 On affiche le compteur, qui sera vert car STR$ fabrique une chaîne 
qui débute par un caractère CHRS$(2). CHR$(32) est un caractère 
blanc, qui sert à effacer le dernier chiffre affiché lorsque l'on passe de 
1009 à 999, de 199 à 99 et de 19 à 9. 


129 On lit le clavier et l'on place le caractère lu dans K$. 
139 Si l'on a frappé ‘flèche à gauche”, on décrémente l'abscisse du 


curseur. 
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149 


159 


169 


189 


199 


200 


219 
229 


239 


259 


269 


270 


Si l'on a frappé ‘flèche à droite”, on incrémente l'abscisse du 
curseur. 


Si l'on a frappé ‘flèche en bas”, on incrémente l'ordonnée du 
curseur. 


Si l'on a frappé ‘flèche en haut'’, on décrémente l'ordonnée du 
curseur. 


La touche lue est affichée, ce qui provoque le déplacement du 
curseur. || ne faut surtout pas oublier le ; à la fin de l'ordre PRINT, qui 
empêche le renvoi du curseur au début de la ligne suivante. 


Si F(1) vaut 1, cela signifie que l’objet numéro | a été découvert, on 
saute donc en 276, il n'y a rien à faire. 


On calcule la distance du curseur à l'objet numéro I. La dernière 
instruction pourrait aussi s'écrire DX—SQR(A"2+B"2). Cette écriture 
est, de façon générale, à éviter. En effet, A+A et B+B sont calculés 
plus rapidement que A°2 et B°2. De plus, on obtient des résultats 
plus précis avec AA et B+B, bien que dans le cas de ce programme 
cela soit sans importance. 


Si la distance n'est pas nulle, l'objet n'est pas trouvé, on va en 250. 


D% est nul, on vient de trouver l'objet I. On l'indique avec F(1}=1 et 
on incrémente le nombre N d'objets déjà trouvés. 


L'expression logique F(1) AND F(2) AND F(3) est vraie si les nombres 
F(1), F(2) et F(3) sont tous les trois non nuls, c'est-à-dire si l'on a 
trouvé les trois objets. Dans ce cas, on va en 410. 


SOUND définit la hauteur de la note |. La période de cette note est 
proportionnelle à D%, on obtiendra une note d'autant plus aiguë que 
D% est petit. Le paramètre ” volume’ de SOUND est à zéro: l'instruc- 
tion définit la hauteur de la note sans la jouer. 


MS% est le minimum des distances curseur-objet. Ce nombre servira à 
déterminer la fréquence de répétition du son, en 270. 


Pour jouer la note du canal 1, il faut exécuter PLAY 1, … Pour la note 
du canal 2, on exécute PLAY 2, … tandis que PLAY 4, … active le 
canal 3. Si l'on désire obtenir simultanément les canaux 1 et 3, on 
emploie PLAY 1+4,.. tandis que PLAY 1+2,…. active les canaux 1 et 
2 et PLAY 1+2+4, … joue les 3 canaux. 

A la ligne 180, on a exécuté PX—@. Puis on a, en 259, ajouté 1 s'il 
faut jouer le canal 1, on ajoute 2 s'il faut jouer le canal 2 et 4 s'il faut 


jouer le canal 3. Ainsi, en 270, P% contient la valeur adéquate pour 
que seuls les notes correspondants aux objets non trouvés soient 
jouées. 


Les lignes 399 à 499 sont exécutées à la fin du jeu. 


320 Illne 
seron 


faut pas oublier le ;. Ainsi les messages des lignes 329 et 339 
t-ils sur la même ligne. 


340 à 389 On reconnaît là l'indicatif de Rencontres du 3° type”. 


399 CHRS(6) rétablit le bruit produit par le clavier, qui avait été supprimé 


à la | 


igne 309. 


Lorsque vous avez découvert les trois objets, on exécute les lignes 


419 à 450 


10 
20 
50 
40 
GT) 
Te) 
70 
80 
90 
100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
Fe) 
220 
&30 
240 


240 


et l’on recommence le jeu. 


REM CACHE-TAMEUONX OK OK OH HOMOK KM HONONK HE NON HOK 


FAFER LsINE O: PRINT CHR#(6):CLS 


W=1000:GS$=CHRS (6) : D$=CHRS (9) 


HH=CHRS (10) : HB=CHRS (1 1) 


X=O:Y=O0: DIM XCH),Y CH) ,F CS) 


FOR Teil TO %:X CT) = INT (4OXKRND C1) ) 


YCI)Æ=INT (27KRND CL) D): NEXT 


FOR TeW TO © STEF-I 

FLOT 16,15, STR# CT) +CHRS$ CIE 
ESekEYS$: IFE&=""THENWAIT10: GOTO280 
IF KS=G#ANDX:0 THEN X=X-1:GOTO180 
IF KÉ#=D#ANDX£39 THENX=X+1:G0OT0180 
IF ÉH=R#ANDY<26 THENY=Y+1: GOTO180 
IF EÉSeH#ANDY:0 THEN Y=Y-1:G0OTOi80 
GOTO 280 

PRINT Et; :Fe0:M%eæ1000 
FORI=3STOISTEF-1:1F F(I)=1 THEN270 
A=X-X (I): ER=Y-Y CI) : DA=SGR (AKÉ+EKE) 
IF DX£:0 THEN 250 

EXFLODE :F(T)=1l: NEeN+I 

IF F(1) AND F(2) AND F(C3) THEN4I0 
GOTO 280 

SOUND I, 80XD%, Os FPreFA+ CT-1) 


260 
TA 
280 
290 
F00 
510 
320 


ECO 


340 
350 
560 
370 
380 
390 
400 
410 
470 
450 
440 
450 


IF DÉ£EMX THEN MX=D% 

NEXT:FLAY FX 0,23, 1OO0KMX 

NEXT T 

CLS: FAFER Z:INE 0 

FOR Iæl TO S:PRINT:NEXT 
FRINTSFC (4): "Vous avez trouve 
FRINTN:s"bhidules":FLAY 1,0,7,10 
MUSIC 1,5,3,12:WAIT @0 

MUSIC 1,5,5,155WAIT 80 

MUSIC 1,3,1,1%:WAIT 80 

MUS CAL STATS NAT A0 

MUSIC 1,2,89,1S:WAIT 80 

FLAY 0,0,0,0: PRINT CHRS& (6) : END 


FOR I=i TO %:F(1)=0:NEXT 

W== INT (2XW/%) 

MUSIC 1,3,10,0:PLAY 1,0,%,1500 
WAIT 400:PFLAY O0,0,0,0 

GOTO 70 


Wu 
Êl 


Attention à ne pas oublier le ; de la ligne 189. 


Voici maintenant un jeu de réflexion. Le principe en est simple: on 
dispose d’un support comportant trois tiges verticales et de disques de 
couleurs et de tailles variées. Ces disques sont percés en leur centre, et 
peuvent s’enfiler sur les tiges. Au début du jeu, on empile tous les disques 
sur l’une des tiges, dans l’ordre des tailles décroissantes. Ainsi, le plus 
grand disque est au-dessous de la pile de disques tandis que le plus petit 
est au sommet. Le but du jeu est de transférer toute cette pile sur l’une 
des deux autres tiges. Cela n’est pas si simple, car vous ne pouvez trans- 
férer d’une tige à une autre qu’un seul disque à la fois. De plus, à aucun 
moment, on ne peut avoir un disque enfilé au-dessus d’un plus petit. 


1.5 TOUR DE HANOÏ 


Voici un exemple avec deux disques: 


Au départ, on a deux disques 
sur la tige de gauche. Il faut 
les amener sur la tige de 
droite. 


1° coup: On déplace le petit 
disque de la tige de gauche à 
celle du milieu. 


2° coup: On déplace le grand 
disque de la tige de gauche à 
celle de droite. 


3° coup et dernier coup: On 
déplace le petit disque de la 
tige du milieu à celle de 
droite. 


Le programme vous demande tout d’abord: 


Nombre de disques ? 


Tapez 2 puis RETURN. On vous demande alors: 


Tige de départ (9, 1,2)? 


Tapez @ puis RETURN. On vous demande encore: 


Tige d’arrivée (9, 1, 2) ? 
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Tapez 2 puis RETURN. L'écran passe en mode haute résolution 
et le support est dessiné. Les tiges sont numérotées de Ÿ à 2. Deux dis- 
ques sont enfilés sur la tige ©. On vous demande: 


Départ, arrivée (9, 1,2)? 


Tapez, dans l’ordre: 


ÿ,1 return 
9,2 return 
1,2 return 


Vous pouvez recommencer avec plus de disques, le jeu se 
complique à partir de 5 disques. Vous pouvez, au début, partir d’une 
autre tige que celle de gauche, pour arriver sur une autre que celle de 
droite. | 


Voici quelques explications sur le fonctionnement de ce 
programme. Les lignes 19 à 129 servent à demander le nombre de 
disques N, le numéro de la tige de départ DE ainsi que celui AR de la 
tige d’arrivée. 


60 Les disques sont numérotés de 1 à N, N est celui de diamètre le plus 
grand. Le tableau TIGE sert à stocker pour chaque tige, les numéros 
des disques qui y sont enfilés. Le tableau T sert à stocker, pour chaque 
tige, le nombre de disques qui y sont enfilés. 


Les lignes 219 à 299 servent à tracer le support et placer les disques 
sur la tige de départ. 


239 On trace une tige verticale. 


249 On trace le numéro de la tige. Pour 1=1, 1+47 vaut 48, ce qui est le 
code ASCII du chiffre ’@'"’. De même, 49 est le code ASCII de 1" et 
50 est celui de 2”. 


270 Le sous-programme 1919 empile le disque numéro A2 sur la tige 
numéro A1. La boucle 264-289 empile donc tous les disques sur la 
tige de départ DE, en commençant par le plus grand. 


Le jeu lui-même est constitué des lignes 319 à 430. 


35% Si la tige de départ A1 est vide, s'il n'y a pas de disque, il y a erreur, 
on va en 380. 


360 


370 


399 


409 


410 


Si la tige d'arrivée A3 est vide, pas de problème, on peut prendre le 
dernier disque de la tige A1 pour le mettre sur la tige A3, ce qui est 
fait en 390. 


On vérifie que le dernier disque enfilé sur A1, celui que l'on va dépla- 
cer, est bien plus petit que le dernier disque enfilé sur A2. Si tel est le 
cas, on va en 390. 


Le sous-programme 241% dépile un disque de la tige A1. Après 
l'exécution du sous-programme, A2 contient le numéro du disque qui 
a été dépilé. 


Le sous-programme 1919 empile le disque numéro A2 sur la tige de 
numéro A1. Le numéro de la tige d'arrivée, A3, a été placé dans A1 à 
la ligne précédente. 


Si il a moins de N disques sur la tige de numéro AR, ce n'est pas 
terminé, on va donc en 31@ pour continuer. 


19 REM TOUR DE HANOÏI XX XX KR KOKOKHCKKOHK HO K 
Ces 

50 TEXT: CLS: FRINT:FRINT 

40 INFUT'Nombre de disques ";N 

SO IF Nii OR N:10 THEN FING:GOTO 40 
60 DIM TIGE(Z,N-1),T (2) 

70 INFUT'Tige de depart (0,1,2) "MiDE 
80 IF DE<O OR DE: THEN FING:G0OTO 70 
90 INFUT"'Tige d'arrivee (0,1,2) "AR 
100 IF ARIO OR ARFE THEN FING:GOTO 90 
110 IF AR=DE THEN FRINT'F$$ 1": GOTO70 
leo 

210 HIRES 

220 FOR I=1i TO à 

220 CURSETHOkXI-40,199,7%:DRAW 0,-150,1 
240 CURMOV -5,-15,3: CHAR I+47,0,1 

240 NEXT I 

260 FOR I=N TO 1 STEF —1 

270 A1=DE: AË=I:GOSUR 1010 

280 NEXT I 

290 : 

ELOSREMNDEEUTOTRAITEMENTESSS ESS SS RSS 
320 INFUT'"Depart,arrivee (0,1,2) "sA1,AS 


FO IF AS<O OR AGE THEN FING:GOTOSE0Q 
40 IF A120 OR ALSFZ THEN FING:GOTOS20Q 
3980 IF T(Al)£=0 THEN 580 
360 IF T(AS)E=O THEN 590 


3270 IF TIGE (AL, T(AL)-L)ETIGE (AS,T(AZ)-1) THEN 390 


3280 ZAP:WAIT FO: EXFLODE:GOTOQ #10 

390 GOGSUR 2010: A1EA% 

400 GOSUER 1010 

410 IF TCARIEN THEN 510 

420 END 

FO à 

1010 REM S-FROG EMFILE DISQUE XX XX XX XX 
1020 Lie190-1OXT (AL): C1=0OXAl+T9 

1050 CURSET-7RX (A1 :0)-84X (ALI) ,LI,TZ 
1040 FILL 10, 1,AZ-7XINT((CAZ-1) /7) 
10850 CURSET72-84X (A1:0)-78X (ALI) ,LI1,Z 
LOSOIFE TUTO NLSTZ 

1070 GOSUR 2060 

1080 TIGE (A1, T(AL)) AE: T CAL)IET (A1) +1 
1090 RETURN 

TOUS 

2010 KREN S-FROG LTYILE DISQUEXXKXXXXXxX*X 
2020 T(AIY ‘(Al)-1: AZ=TIGE(AI,T(A1)) 
8050 Lisz190-10XT (A1) :C1=ROKkA1+E 

2040 CURSET-78X (A1:0)-84X (ALT) LI, 
SOSONEDPEBIONLE7 

2060 FOR J=0 TO 9 

2070 CURSET C1-FXxA2,LI+I,Z 

2080 DRAW 6KxA2+1,0,7% 

2090 NEXT J 

2100 RETURN 


1.6 SOLUTION DE LA TOUR DE HANOÏ 


Ce programme, qui résoud le problème de la tour de Hanoï, se 
trouve dans tous les manuels d’informatique, car il illustre la notion de 
sous-programme récursif, c’est-à-dire un sous-programme capable de 
s'appeler lui-même. Il peut être intéressant de voir comment ceci peut 
être programmé sur ORIC. 
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Le transfert de N disques d’une tige de départ DE à une tige 
d’arrivée AR peut se décomposer en trois étapes. 


1) On transfère N—1 disques de la tige DE sur la tige restante. 


2) Il reste un disque, le plus grand, sur la tige DE. II n’y a rien sur 
la tige AR, les autres disques sont empilés sur la troisième tige. On trans- 
fère le grand disque de la tige DE à AR. : 


3) Il ne reste plus qu’à transférer les N—1 disques restants de la 
tige où ils sont vers la tige AR, et le tour est joué! 


On veut transférer quatre disques sur 
la tige de droite. 


On transfère trois disques sur la tige 
restante, ici celle du milieu. 


On fait passer le grand disque de 
gauche à droite. 


On transfère les trois disques sur la 
tige de droite. 


Le programme correspondant peut être décrit comme suit: 
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Programme solution de la tour de Hanoï: 
lire le nombre de disques N 
lire le numéro de la tige de départ DE 
lire le numéro de la tige d'arrivée AR 
exécuter Hanoï (N,DE,AR) 


Sous-programme Hanoï (B1,B2,B3): 
si B1 vaut 1 alors: 
dépiler le disque du dessus de la tige B2 
empiler ce disque sur la tige B3 
sinon : 
calculer B4=numéro de la tige restante, ni B2, ni B3 
exécuter Hanoï (B1—1,B2,B4) 
exécuter Hanoï (1, B2, B3) 
exécuter Hanoï (B1—1,B4, B3) 
Retour 








Le sous-programme Hanoï est récursif, ce qui signifie que les para- 
mètres locaux B1, B2, B3 et B4 ainsi que l’adresse de retour L doivent 
être empilées lorsque l’on entre dans le sous-programme. Ce qui est fait 
en 420-459. Il faut aussi dépiler ces quantités en sortie du sous- 
programme, ce qui est fait en 569-580. 


10 REM SOLUTION TOUR DE HANOTIXXXX XX XX 
20 3: 

30 TEXT: CLS: FRINT: FRINT 

40 INFUT'"'Nombre de disques ":#N 

30 IF N£l OK N*10 THEN FING:GOTOQ 40 
60 DIM TIGECZ,N-I) TZ), FYLE (100): FF=0Q 
70 INFUT'"Tige de depart (0,1,2%) "MS DE 
80 IF DE£O OR DE*2 THEN FING:GO0OTO 70 
90 INFUT'Tige d'arrivee (0,1,#) "3: AK 
100 IF AR£O OK AR:2 THEN FING:GOTO 96 
110 IF AR=DE THEN FRINT'F£$ 1": GOTO70 
120 : 

210 HIRES 

220 FOR I=i TO S 

250 CURSET8OXI-40,199,3:DRAW O0,-150,1 
240 CURMOV -2,-15,3%: CHAR I1+47,0,1 
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ele) 
2860 
FATA) 
280 
290 
SEC 
520 
330 
340 
410 
420 
450 
440 
450 
4é0 
470 
480 
490 
500 
10 
320 
30 
40 
50) 
60 
70 
580 
390 
1810) 
1910 
1020 
1050 
1040 
1950 
1060 
1970 
1080 
1090 
1100 
2010 
2020 


NEXT IT 


FORTENMTOMMAMSTER El 

Al=DE: A2=I:GOSUR 1010 

NEXT I 
RÉMPSDEEUTETRAITEMENTSSSS ES ESS 
Hi=N: H2SDE: RIeAR:Lel: GOTO 410 

END 


REM S-PROG  HANO I X XX HCK NM NHOKOK ACKX 
FYLE (FF) &L.: PYLE (PF+1)=E1 

FYLE (PF+2) 2h23: PYLE (PP+4H) HT 

FYLE (FF+4) =B4: FPePP+s 

IF Hi£ïl THEN 510 

Al=B2:GOSUR 2010 

Al=R%: GOSUER 1010 

GOTO 560 

H4=s-R2-H5 

Hi=Hi-1i:H3eB4:Le?2:GO0TO 410 

Bi=i: HePYLE(PF-2) :Le3: GOTO 410 
Bi=PYLE (FF-4) -1: HP=H4: Led: GOTO 410 
PFePP-5 : R4=PYLE (PF+4) 
REePYLE CPP4H) 5 RPePYLE (FF+2) 
Bl=PYLE (FF+1) :LePYLE (FF) 


ON L GOTO 250,520, S540, 550 


REM G-FROG EMFILE DISQUEXKXXKXXXx 
L1=190-1OXT (AL): C1=BOXAl+ES 
CURSET-78X (A1:0)-84X CALEI) LIT 
FILL 10,1,482-7XINT((A2-1)/7) 
CURGSET72-84% (A1 %#0)-78X (ALI) , LI, 
ÉFCERTO LS 

GOSUER, 2060 

TIGE (AL, T(AL))=AS:T (AL) ET (A1) +1 
RETURN 

REM S-FROG DEPFILE DISQUEXXXXK#Xx x 
TA) =ET (AL) —-15 ASSTIGE(CAL, T (A1) ) 
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2020 Lis190-10XT (A1) :C1=B0kA1+50 
2040 CURSET-7E (A1 0) -84X CALE) LA, 
2060 FILL 10,1,7 

2060 FOR J=0 TO 9 

2070 CURSET Ci-3xA2,L1+4J,% 

2080 DRAW 6KA7+1,0,2 

2090 NEXT J 

2100 RETURN 


1.7 CHUTES D'ÉTOILES 


Aprés ces deux programmes sur la tour de Hanoï, nous entrons 
maintenant dans le monde des jeux intersidéraux. Vous êtes maintenant 
le commandant d’un vaisseau intersidéral. Vous traversez un champ 
d'étoiles énergétiques, il faut essayer d’avaler ces particules en plaçant 
votre vaisseau devant, vous disposez des deux touches ” flèche à gauche” 
et flèche à droite” pour vous diriger. Attention : certaines de ces étoiles 
clignotent, elles sont en fin de leur existence et risquent d’exploser. Il 
convient donc de les éviter. Une particule rouge vous rapporte un point, 
une verte deux points, une jaune trois points, une bleue quatre points, 
une mauve cinq points et une bleu ciel vaut six points. Et maintenant, 
bonne chance! 


Ce jeu utilise le mode LORES 1, qui rappelons-le, est un mode 
TEXT, l’ordre LORES 1 place simplement un caractère CHRS$(9) au 
début de chacune des 27 lignes de l'écran. Ce caractère impose au 
système vidéo de l’'ORIC utilisation du jeu de caractères semi- 
graphiques. Chaque étoile est un caractère semi-graphique de code ASCII 
35, le vaisseau est lui constitué des caractères de codes 33 et 34. 


Le début du programme, de 19 à 160, sert à redéfinir ies caractères 
semi-graphiques employés, ainsi que quelques constantes. 


39 B% est le code ASCII du “blanc”, T% et Q% sont les codes ASCII de 
la tête et de la queue du vaisseau, alors que A% est celui de l'étoile. 


99 X% et Y%X sont les coordonnées sur l'écran du vaisseau. CHR$(17) et 
CHR$(29) suppriment le curseur et le mot CAPS. 
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199 G$ et D$ contiennent les codes ASCII des touches ‘flèche à gauche” 
et ‘’flèche à droite”. H$ contient celui de ‘’flèche en haut‘. 


119 à 149 Le vaisseau est obtenu en affichant trois chaînes T$(@), T$(1) 







et T$(2). 
T$(@) CHRS$(9) rerk Hi B$ 
| | 
11 
El 
T$(2) 


Les CHR$(9) forcent l’utilisation des caractères semi-graphiques 
non clignotants, ainsi le vaisseau ne clignotera pas lorsqu’une étoile 
clignotante se trouvera à sa gauche. Le CHRS$(7) détermine la couleur 
du vaisseau, blanc. 


Lorsque l’on déplace le vaisseau à gauche, les deux blancs B$ situés 
à droite effacent le vaisseau précédent. Lorsque l’on se déplace à droite, 
le vaisseau précédent est remplacé, effacé par les deux CHRS$(7). Enfin 
les quatre blancs de la chaine T$(2) effacent le bas du vaisseau précédent 
après chaque déplacement vers le bas du champ d'étoiles. 


150 S est l'adresse-mémoire de l'octet qui correspond au 2° caractère de 
gauche de la première ligne de l'écran, elle servira à la ligne 220. Les 
constantes L et M seront aussi utilisées à la ligne 220. 


La boucle de jeu s'étend de 179 à 34. 
199 On tire au hasard un nombre Z% compris entre 1 et 37. 


209 En Z%X on place un caractère dont le code ASCII est aléatoire et 
compris entre 1 et 6. C'est un code de couleur, qui détermine la teinte 
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210 


229 


230 
249 


259 
260 
270 
289 
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des caractères situés après lui sur la ligne. En Z%+1, on met une 
étoile, qui a la couleur définie par le caractère précédent. 


H$ contient un caractère CHR$(11). Lorsqu'il est émis par un ordre 
PRINT, il déplace le curseur vers le haut, comme la touche ‘flèche en 
haut”. L'ordre LORES 1 de la ligne 40 a effacé l'écran et placé le 
curseur dans le coin supérieur gauche. 

Aussi, comme l'ORIC ne peut pas dans ce cas déplacer le curseur 
vers le haut, il déplace tout l'écran en sens inverse, vers le bas, ce qui 
est ce que l'on recherche ici. Il ne faut pas oublier le ; à la fin de 
l'ordre, il empêche le curseur de revenir au début de la ligne suivante, 
ce curseur reste donc dans le coin supérieur gauche. 


On place soit un CHR$(9) soit un CHR$(13) au début de la première 
ligne de l'écran. L'étoile qui a été placé sur cette même ligne écran en 
200 sera donc clignotante avec CHR$(13) et fixe avec CHRS$(9). 


Lit le clavier. 


Si la touche frappée est ‘’flèche à gauche’ et si X% est supérieur à @ 
l'expression (C$—G$ AND X%>0) est vraie et vaut —1, on décré- 
mente X%. Si on a frappé ‘flèche à droite’, c'est (C$—=D$ AND 
X%X<36) qui vaut —1 et on incrémente X%. 


On trace le vaisseau. 
On regarde si l'on est en face d'une étoile. 
On regarde si l'étoile clignote. 


SCRNIX%+1,Y%—1) donne le code ASCII du code de couleur de 
l'étoile, c'est un nombre compris entre 1 et 6 que l'on ajoute au score 
U%. 


10 REM ETOILES X XX XX XX OIOK KOHOK HACK OHOKOKACK NOK K 
20 : 

FO HAT: Test: QAer4: AYeTE 

40 FAFER O:INE O:LORES 1:S=#BB800+8XxT% 
20 FORI=STOS+E%: READV: POKHET, Vs: NEXT 

60 DATA 12,12,12,:5:0,45,45,45,45 

70 DATA 45,45,45, 6%, 45,38, SE 

80 DATA 0,0,12,20,230,12,0,0 

90 Xl: YAe20: FRINTEHRS (17) : CHKS (20) 
100 Gé=CHRS (8) : DÉECHRS (9) s H$ECHRSE (11) 
110 DIM TH(2) : BH=CHRS# (E2) 


120 
150 
140 
150 
160 
170 
180 
190 
200 
seu) 
220 
HAT) 
240 
Ale) 
260 
270 
240 
290 
F00 
F10 
FE 
FE0 
540 
550 
60 
370 
380 
90 
400 
410 
420 
450 
UT] 
450 
4860 
470 
440 
490 
#00 
ee) 
AR) 


TH CO) CHARS (9) +CHRS (7) +CHRS (TA) +8 
TH CL) CHARS (9) +CHRS (7) +CHRS COZ) +E 
THE) =R$+RÉ+ERH+ES 
GeHBROO+4 1: Les: Mel 

REM DEBUT DU FROGRAMNME- 
FOR Tæ1 TO 400 

L'AsE7 KRND (1) +1 

FLOTZ 4 On 1 +6XRND C1) 8 FLOTZ A+ 1 4 Ou 
FRINT H#: | 

FOEE Sil:IF KND(1)<,.STHEN FOKHES,M 
CHEKEYS 

XX At (CHEGBANDXZ 50) — (CHE=DBANDX4E T6) 
FOR Ie0OTOS: PLOTX a Vatls TH CI): NEXT 
IF SCRNEX AH, V1) HA% THEN 290 
IF SCRNCO, Vé-liels THEN 550 

LAF'e UE A+SCRN OX 1, VA 1) 

ZEFRE (0) 

NEXT TeWAIT 200:G0OT0 350 

REM FIN DU FROGRAMME eee nee 
FORIS=OTOZ: PLOT K44+1, VA+I, Le NEXT 
EXPLODE:WAIT 300€ /0c 

TEXT: PAPER Z:INE ©: CLS 

FRINT: PRINT: FRINT: PRINT: FRINT 
PRINT SPCCIG) "Vous avez gagne" 
FEAINT: PRINT: FRINT 

PRINT -SPECLIS):CHRS C27) 8 "Aile 

FRINT CHARS (27) x N'a UT 

PRINT SPC CLS) 5; CHARS C27) 3 "Al 

FRINT CHARS C7) 3 Nas LI: FRINT 
PRINT: PRINT: PRINTSPC (15) s "pointe" 
BeINT OX / 20) 2 FRINT: FRINT: FRINT 

IF BeQ THEN SHOOT:GOTO 500 

IF KR THEN EXPFLODE: GOT 560 

ON E GOTO 510,880, 250, 840, 550 


FRINT'"'Vous etes nul. !":GOTO 580 
FRINT'Fas terrible. !":GOTO 580 
FRENCH Sr GOT 0 
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30 FRINT'Fas mal.'":G0OTO 580 

540 FRINT'Felicitations!":GOTO 580 
0 FRINT'GQuel score !!'":GOTO 580 
160 FRINT'Fantastique ! Formidable !" 
57 Cine 


390 FRINT CHRS# (17) 5 CHR# (20) 


Ne pas oublier les ; des lignes 219, 394 et 419. 





1.8 VOYAGE DANS L'ESPACE 


Après CHUTE D’ÉTOILES, nous poursuivons notre voyage dans 
l’espace. Le vide intersidéral est décidément très peuplé, car vous traver- 
sez de nouveau un champ d’étoiles. Mais attention: cette fois-ci, ce sont 
des étoiles très dures, qu’il faut absolument éviter. Vous disposez 
toujours des flèches à gauche et droite pour manœuvrer. Au départ, vous 
avez un crédit de 9, ce qui signifie que vous pouvez percuter neuf étoiles 
au maximum. Il ne me reste plus qu’à vous souhaiter bon voyage! 
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30 


49 


59 


69 


89 
99 


100 


119 


140 


159 


169 
219 


On efface l'écran, on efface le curseur, le mot CAPS, on supprime le 
“’plop"” produit par les touches du clavier: 


Bien qu'il ne soit plus affiché, le curseur existe toujours dans l'ORIC, il 
indique l'endroit où sera affiché le prochain message. L'écran 
comporte 27 lignes, on envoie le curseur sur la dernière ligne de 
l'écran. 


S est l'adresse-mémoire de la première ligne de l'écan. (On ne 
compte pas la ligne où se trouve CAPS). 


H%=—42 est le code ASCII de l'étoile. G$ et D$ contiennent les codes 
ASCII des touches ‘flèche à gauche” et ‘flèche à droite”. 


On place trois étoiles sur la dernière ligne de l'écran. 


Comme le curseur est en bas de l'écran, PRINT décale tout le contenu 
de l'écran vers le haut. Puis on lit le clavier. 


Ceci, comme dans le jeu précédent, incrémente où décrémente X 
selon la touche frappée. 


à 130 On regarde si l’on a rencontré une étoile. Si oui, on décrémente 
le crédit V. 


On fabrique le vaisseau. V est un nombre compris entre 1 et 9. V+48 
est compris entre 49 et 57, ce qui correspond aux codes ASCII des 
caractères “1” à "9". 


On affiche le vaisseau et on incrémente le score. 
On modifie la couleur de façon aléatoire. 


La chaîne STR$(N%), c'est une particularité de l'ORIC, débute par un 
caractère CHR$(2) qui donne au nombre la couleur verte. Pour que 
les mots année lumière...” qui sont à la suite ne soient pas verts eux 
aussi, on affiche CHR$(3), ces mots seront donc jaunes. 


19 REM VOYAGE DANS L'ESPACE X X XX XX XX X 
PRE 

30 CLS: FRINTOEHRS (17) 3 CHARS (20) : CHERS Cé) 
46 FOR Ii TO E7:FRINT:NEXT: FAPER © 
MO Xelde Yetés VeGs SeHBREAAS: Le Te 

8 Némos Hs GeCHRS (6) : DÉeCHRSE (9) 
FAN 

80 FORI=1TOË: FLOTI+RND C1) KL, Ya Hs NEXT 
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90 FRINT:ES=EEYS 


100 
110 
120 
1:50 
140 

50 
180 
170 
120 
190 
200 
210 
220 


230 


KeX+ (Eee GSANDX 1) — (E$=DSANDX< 56) 
FOR I=9 TO € 

IF PEÉEE (S+X+I1)=H% THEN VeV-1:FING 
NEXT:IF V£1 THEN 180 


PLOT K,0, VS: N4=N%X+1 
INF 1+7XKRND (1): GOTCO 80 


EXFLODE: WAIT Z200:FAFER O:INE € 
FLOT 9,125, '"Vous avez vayage dans” 
FLOT 11,15,"1"espace pendant” 
FLOT 9,17, STRS8 (NA) +CHRS& C3) 
FLOT 14,17, "annees lumiere... 
PRINT CHKS# (17): CHR$# (20) ; CHRS (6) 
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1.9 CHENILLE 


Voici maintenant un ” classique” des jeux sur micro-ordinateurs : 
Le jeu de la chenille. Une pauvre petite chenille affamée se promène sur 
votre écran, cherchant sa nourriture. Elle mange des punaises, des 
araignées et des gros scarabées. Votre rôle consiste à guider la petite 
chenille avec les quatre touches fléchées. À chaque fois qu’elle mange 
une punaise, elle grandit d’un anneau. Une araignée la fait grandir de 
trois anneaux, et un scarabée lui donne dix anneaux de plus. Le but du 
jeu est de faire grandir le plus possible la petite chenille. 


Attention : cet animal est très vorace, il avale vraiment tout ce qui 
se présente à ses mâchoires. Il ne faut pas que sa tête passe sur son corps, 
car il se dévore immédiatement et en meurt. De plus, les gros scarabées 
sont très lourds à digérer, la chenille ne peut en manger qu’après avoir 
avalé une araignée, qui contient des sucs digestifs. 


La difficulté du jeu commence à se manifester lorsque l’on atteint une 
longueur d’environ deux cents anneaux: Il faut soigneusement choisir 
son chemin pour éviter d’être pris dans les replis du corps qui occupe une 
bonne partie de l’écran. Pour vous aider, le nombre de scarabées que 
vous pouvez avaler sans risquer l’indigestion est inscrit en rouge en bas 
de l'écran. 


La tête de la chenille, chacun de ses anneaux, la punaise, l’araignée 
et le scarabée sont bien sûr des caractères que l’on a redéfini. 


! l l | I ! [ 











rep 
anneau 


anneau araignée 


anneau 


RE 











+ 
| 
l 
| 
l 
l 
| 
l | 
+ 
| ! 
| l 
l | 
l LE 
! ! 
Û | 
| [ 


sp — me 


== + 
l | punaise | 
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La difficulté de ce programme réside dans le déplacement de la 
chenille. On ne peut pas déplacer sur l’écran toute la chenille lorsque 
vous frappez une touche, car cela serait beaucoup trop long. Prenons un 
exemple pour montrer comment l’on procède : 


On veut déplacer vers la droite la chenille: 


position 1 


position 2 





On pourrait bien sûr déplacer vers la droite les quatre caractères 
qui représentent la chenille. En fait, partant de la position 1, il suffit de: 


— déplacer la tête vers la droite, 


— mettre un anneau à l’endroit où se trouvait la tête avant son 
déplacement, 


— effacer le dernier anneau. 


On arrive ainsi à la position 2 en trois étapes, et ceci quelle que soit 
la longueur de la chenille. 


Dans la mémoire de l’ORIC, chaque élément I, anneau ou tête, de 
la chenille, est représenté par trois nombres: son abscisse sur l’écran 
S%(T, 9), son ordonnée S%(I, 1) et un pointeur P%(T). Le pointeur P%(I) 
contient le numéro de l’élément précédent dans la chenille. Au début du 
jeu, on a: 
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P%(1)=2 P%(2)=3 P%(3)=1 






S%(1,9)=1 S%(2, 9)=2 





S%(3,0)=3 








S%(2, 1)=1 S%(3, 1)=1 





S%(1, 1)=1 





élément 1 (queue) élément 2 (milieu) élément 3 (tête) 


On a de plus deux variables TÊTE et QUEUE qui contiennent le 
numéro de l’élément qui est la tête et celui de l’élément en queue respecti- 
vement. Au début du jeu, TÊTE=3 et QUEUE=1. Si l’on déplace la 
chenille vers la droite: 


— On fait progresser en suivant le chaînage les contenus de TÊTE 
et QUEUE en exécutant TÊTE-P%X(TÊTE) et QUEUE=P%(QUEUE). 


— On place les nouvelles coordonnées de la tête dans l’élément de 
numéro TÊTE. 












P%(1)=2 P%(2)=3 P%(3)=1 






S%(3, 9)=3 





S%(1,0)—4 S%(2,9)=2 









S%(3,1)=1 





S%(2,1)=1 





S%(1, 1)=1 


élément 1 (tête) élément 2 (queue) élément 3 (milieu) 


TÊTE vaut 1 et QUEUE vaut 2. 


Pour déplacer la chenille, on peut seulement modifier le contenu de 
S%(1, 0), S%(1, 1), TÊTE et QUEUE. De façon plus générale, n'importe 
quel déplacement ne modifie que quatre quantités, TÊTE, QUEUE, 
SH(TÊTE, Ÿ) et SH(QUEUE, 1), quelle que soit la taille de la chenille. 


Pour allonger la chenille d’un élément, on incrémente la variable L, 
qui contient la longueur de l’animal, puis on ajoute l’élément L en queue. 
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10 
0 
EE 
40 
0 
6 
70 
80 
90 
100 
110 
120 
1:30 
140 
150 
160 
170 
180 
190 


200 
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élément 
à 
ajouter 


[fe 


REM CHEN TELLE XOKOK HCOXOK HOKOK HONOR HONOR HONOK NOK K 
GOSUR 1000 
GÜSUER 1200 


REMIDECEUREZTCLAVTIERTS- Sens Tees esse 

AS=ÉEVS: IF Ag="" THEN 440 

XE=GSZUTETE, 0) : YeSXTET, 1) : A=ASC (AS) 
IF A=SANDXS1 THEN X=X-1:GOTO 150 
IF A=GANDXE58 THEN X=X+1:G0TO0 150 
IF AZ=IOANDYEES THENY=Y+1:G0T0 150 
IF A=ILIANDY:O THEN YeY-1: GOTO 150 
GOTO 70 


REM DEPFLACEMENT CHENILLE See 
PLOT -SÉCTETE, 0) S/2CTETE, 1,02 
PLOT S%(QUELE, 0),S7% (QUEUE, 1) ,32 
TETESFYA (TETE) : QUEUESFX (QUEUE ) 
SLITETE, O0) EX: SLTETE, 1) =Y 
V=SCRN(X,Y):FPLOT X,Y,CI 


210 
220 
2:30 
Z40 
250 
240 
270 
280 
290 
500 
310 
320 
S50 
340 
350 
560 
370 
380 
590 
400 
41 0 
40 
450 
440 
450 
Ta LA) 
470 
480 
490 
OU 
ss 
Le R e 
TA) 
ETS) 
Eur PL) 
360 
a70 
380 
590 
800 
610 


IF Vr128 THEN VaV-128 

IF VeCl OR Vz C2 THEN 550 

IF VESC4 THEN 280 

REMNPUNAISESSS ESS ESS ST See 
ZAF:LlLels GOSUR 680: GOT 440 

IF VESCS THEN 540 

REM ARBIGNEE--- eee 
ZAFilLeËs: GOSUR 480: :FeF4+1 

MOST ES Or PLANS 2 00) 

GOTOQ 590 

IF VE CS THEN 440 

REM GROS SCARAREE ----- 
FeF-1l:IF F£0 THEN 550 
MUSTEMISERT ON OR PLAYA AL 5000 
LLe10:GOSUR 450 

FLOT 10,%46,'"Je peux avaler" 

FLOT 25,26, STK$(F) 2 FLOT2S. 26,32 
PÉDALE 


IF RND(1):.08 THEN 70 

Ve INT CEA XEND (1) ) 

Xe 1 4 EEK RND (1) 5 Ye GRAND (15 

IF SCRNX YIESHES THEN 70 

Ve INT CE 1 XFRND € 1) ) 

IF Vidà THEN CeCs 

IF V:10 AND VE47 THEN Cats 

IF VEI1 THEN CxC4 

FLOTXSYR ESA TA 70 

nd E M F: E F4 D LJ ann rene venus comte oo canne santé sante tte 1060 vatus ones c000e onto vebee one 0006 00009 sans eme cute on606 00008 one 
EXPLODE:FLOTI16,15, "Score:" 
LHE=STRSE (LL) 
LHERIGHTS (LS, LENCLS)—-1) 

FLOT 228,15, L#: PRINT CHRS# (6): 
FLOT 10,1%, "On rejoue (O/N) +" 
GET A$:IF A$="0Q" THEN 40 

IF ASSSUNU THEN FING:GOTO 400 
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620 
620 
640 
650 
éé0 
870 
880 
690 
700 
710 
720 
1000 
1910 
1920 
1050 
1040 
1050 
1060 
1970 
1080 
1990 
1100 
LAAO 
12700 
210 
1220 
1250 
1240 
1250 
1260 
1270 
1280 
1290 
1500 


CLS: END 


REM ALLONGER LA CHENILLE 
FOR J=i TO LL:ileL+i 

FA CL) “QUEUE : FX (TETE) =L 
SA (Ls 0) =S% (QUEUE, 0) 
SAiL, 1) =6% (QUEUE, 1) 
QUEUE=L 

NEXT J 

RETURN 


REM DEFINITION CARACTERESXXXXXXX 
DATA ZE, ST, TO, 18, 18,30, SR, 25 
DATA 240,51,2%,45,45,23,51, 30 
DATA 25,19,12,12,12,12,18,55 
DATA 0,0,18,12,12,18,0,0 

DATA 12,12,45,65,65,45,12,12 
S=44080+122%8 

FOR I=STOS+29: READV: POKET, Vs: NEXT 
Ci=172:CPe12%: Ce124: C4=175 
C5=126: DIM S4(600, 1),F4 (600) 
RETURN 

REM INITIALISATIONS XX XX OK NX OK KX 
TEXT:FAFER Z3INE O:CLS 

Le: FeO0s FRINT CHRS$ (6): 

FOR I=i TO L 

SACI,O0)=I:S%(I.1)=1 

PLA(CI)=I+i: PLOT I,1,C25NEXT I 
FAiL)=1: TETE=L: QUEUE =1 

PLOT L,1,0Ct: PLOTO TL, 26,41 

FLOT 10,%6,'"Je peux avaler" 

FLOT 25,26.,48:PLOT %29,26,05 
RETURN 





1.10 ENCLUMES 


A la suite d’une dispute avec l’un de vos voisins, vous décidez de 
lancer sur sa maison des projectiles à l’aide d’une catapulte. Mais que 
lancer ? Il faut en effet des objets assez lourds, capables de produire en 
tombant suffisamment de dégâts. Votre choix se porte sur un stock 
d’enclumes, acheté d’occasion. 


Avant chaque tir, il faut régler la catapulte, pour fixer d’une part la 
vitesse de départ de l’enclume et d’autre part l’angle de départ par 
rapport à l'horizontale. Le tir est compliqué par la présence d’une 
montagne et par du vent, qui dévie la trajectoire. 


A chaque tir, il faut donner la vitesse initiale exprimée en mêtres/- 
seconde, l’angle de départ en degrés. La vitesse du vent est positive s’il va 
vers la droite de l’écran, négative s’il va vers la gauche. 


Voici quelques explications sur le fonctionnement de ce 
programme. Les lignes 39 à 69 servent à définir le caractère qui représen- 
tera l’enclume. 46592 vaut 46989+8*64, ce qui signifie que l’on a redé- 
fini le caractère de code ASCII 64. 
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Les lignes 89 à 199 servent à tracer la montagne de pente H. De 
119 à 149 on trace le versant gauche tandis que le versant droit est 
dessiné de 159 à 189. A la ligne 189, on place en bas à droite de l’écran 
un caractère CHR$(17) sur neuf lignes. Ce caractère donne à l’écran la 
couleur rouge. 


Le bloc 299 à 329 sert à initialiser la position (X, Y) du projectile 
ainsi que sa vitesse (VX, VY). On tire aussi au hasard la vitesse V du 
vent. G—9.81 est l’accélération de la pesanteur. 


La trajectoire est calculée point par point, en utilisant une méthode 
d'intégration numérique d’ordre deux. Le projectile est soumis à l’accé- 
lération de la pesanteur et à une traînée aérodynamique proportionnelle 
au carré de sa vitesse VI par rapport à l’air. 


De 339 à 399 on calcule un point. 
349 V1 est la vitesse de l'enclume par rapport à l'air, tandis que G1 est la 
décélération due au frottement aérodynamique. 
359 DT est le pas de calcul. 
369 On calcule les composantes GX et GY de l'accélération du corps. 
379 On calcule les composantes VX et VY de la vitesse. 
384 On obtient alors la nouvelle position (X, Y) 


Les lignes 499 à 549 affichent l’enclume, en vérifiant qu’elle n’est 
pas sortie de l’écran et qu’elle n’a pas percuté la montagne. 
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Enfin, les lignes 519 à 559 terminent le programme. 


10 REM JEU D'ENCLUMES %X XX OK OK OK OKON HO K KOKOKK 
2: GÈNSS 

50 REM DEFINITION FORME ENCLUME 
40 DATA 0,50, 65,20, 12, 50,0, 0 

50 TEXT:FOR Is44502 T0 44599 

dÙ READ ViFORE TV: NEXT 


RO REM TRACE MONTAGNE eee eee ie 
90 PAFER 23INE 4: HeRND CL) KI, E+, 

100 HIRES:FAFER Z:INE © 

110 FOR 1=40 TO 119 

30 JeINT CCI-40) KH4+LEXKRND C1) 2 +1 

LEO CCURSET. 99: Er DRAN TO ETS 

140 NEXT I 

LEOCEURSTET 204 TENTE? 

160 JeINTÉ(199-T) KH+LESXKRND 1) ) +1 

170 CURSET 1,199,3:DRAW O,-—-I,1 
LACONENTMT ES CURSETESES LOUE ETES, A7 
ÉOUMES 

200 REM INITIALISATIONS----- 
210 Xe0:Ve0ske, OO: G=0,01 

280 Ve (RND(1)-.5) Kk5 
BEOMPRINTUVENTE EU 

240 FRINT'DONNER L VITESSE INITIALE" 
240 INEUT VO 

260 PRINTUVENT:S Vs tt VOs ts No 

270 FRINT'DONNER L'ANGLE DE DEFART" 
280 INPUT A: FRINT 

290 PFRINT'VENTs "Vs" VOs"aVOst Ass A 
= AzA/1E0OXxFPTI 
VX=VOXCOS CA) : VYÆ=VOXSTN (A) 
REMICALCULNTRATEETOTRE===SSSSSÉSS 
VI=SCR € CVX-V) D4UVES) 2 GisEXVI"2 
DT=15/Vi+, 1: D2=DT"2/E 

GX: (VX-V) /VIXGI:GYe-VY/VIiXxG1-6 
VXE=VX+HEGX DT: VYeUY+GYXDT 
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SP 

400 REM AFFICHAGE ---- 
410 Z2=199-Y:2IF 7192 THEN 440 

420 IF X:220 AND X2257 THEN 510 

#50 FING:WAIT 2300:G0OTQ 100 

440 IF X£4 OR X:237 OK Z£O THEN 740 
450 IF FOINT(X,2)=0 THEN 470 

480 EXFLODE:WAIT 5300:GOTO 100 

470 CURSET X,2Z,0:CHAR 64,0,1 

480 SOUND 1,10000/(200-7),0 

490 FLAY 1,0,4,100:GOTQ 340 

SOO 


510 REM COUF AU BUT----——— 


920 PAPER 1:CURSET X,192,25 

330 CHAR 64,0,1:ZAP:WAIT 40:EXPFLODE 
540 PRINT:PRINTSPC(27) 3; "Sprotch I 
990 WAIT 400:SHOOT 





1.11 MUR DE BRIQUES 


Chapeau bas. J’ai l'honneur et l’avantage de vous présenter l’un des 
ancêtres, l’un des pionniers des jeux vidéos, le jeu de mur de briques. En 
face de vous se trouve un mur de 490 briques. Vous avez une raquette, et 
vous devez sans cesse renvoyer une petite balle qui casse les briques sur 
lesquelles elle rebondit. Le but est bien sûr de casser les 499 briques. 


Les touches ”flèche à gauche” et ”’ flèche à droite” déplacent la 
raquette, tandis que ” flèche en bas” incline cette raquette vers la gauche 
et flèche en haut” l’incline vers la droite. Ainsi, la raquette peut avoir 
cinq inclinaisons différentes, et l’on peut renvoyer la balle dans une autre 
direction. 


La tactique consiste à percer le mur de part en part, puis d'envoyer 
la balle dans le trou, pour qu’elle arrive entre le haut du mur et le haut de 
l'écran. Elle rebondit alors sur le haut de l’écran et sur le mur, en détrui- 
sant une brique à chaque fois. 


Ce jeu utilise le mode haute résolution HIRES. Les principales 
variables utilisées sont : 


— X, Y: position de la balle sur l’écran. 
— VX, VY: vitesse de la balle. 

— XR, YR: position de la raquette. 

R : angle de la raquette. 


— MG, MD, MB et MH sont les marges gauche, droite, basse et 
haute de l’écran. 


— A$, B$, C$ et D$ contiennent les codes ASCII des touches 
flèches. 


Le fonctionnement du programme est le suivant: 


30 Lesinitialisations sont laissées à la responsabilité du sous-programme 


500. 
La boucle de jeu est constituée des lignes 59 à 254. 


59 On lit le clavier. Si une touche flèche n'a pas été frappée, il n'y a pas à 
modifier la position ou l'angle de la raquette et on va en 190. 
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60 


70 


89 
99 


100 


119 


149 


179 


Les lignes 69 à 189 modifient la position ou l’angle de la raquette. 


On commence par effacer l'ancienne raquette en y plaçant le carac- 
tère B. 


Si on a frappé ‘flèche en haut”, il faut incliner la raquette à droite, J1 
est l'incrément angulaire que l’on va ajouter en 119 à l'angle R. 


Si on a frappé ‘flèche en bas”, il faut incliner la raquette à gauche. 


Si on a frappé ‘flèche à droite”, il faut déplacer à droite la raquette. 
11 est l’incrément que l'on va ajouter en 149 à XR. 


Si on a frappé ‘flèche à gauche”, il faut déplacer à gauche la 
raquette. 


à 130 On modifie l'angle R de la raquette en vérifiant que l'on ne sort 
pas des limites —-RM, +RM. 


à 169 On modifie la position XR de la raquette en vérifiant que l'on 
ne sort pas de l'écran. 


On affiche la raquette. INT(R/J2) vaut —2, —1,@, 1 ou 2 selon l'angle 
de la raquette. 


Les lignes 199 à 259 déplacent la balle. 


199 On calcule les nouvelles coordonnées XA et YA. 
200 Si l'on sort de l'écran par la gauche ou la droite, on va rebondir en 
350. 
219 Si l'on sort de l'écran par le haut, on va aussi rebondir en 359. 
220 Si l'on sort de l'écran par le bas, on va en 320. 
230 Si l'on a rencontré une brique, on va en 27%. 
249 On efface l’ancienne balle en X, Ÿ on trace la nouvelle en XA, YA. 
25% Après avoir transféré (XA, YA) dans (X, Y), on recommence. 
Les lignes 279 à 319 sont exécutées lorsque l’on rencontre une 
brique. 
279 On calcule les coordonnées X1, Y1 de l'angle supérieur gauche de la 


280 
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brique rencontrée. 


On efface cette brique. 


299 On incrémente le nombre NB de briques cassées et on regarde s’il est 
égal au nombre total NT de briques. 


309 On affiche NB. 
319 On nettoie la mémoire et on va rebondir sur la brique en 350. 


329 On arrive à cette ligne lorsque l'on sort de l'écran par le bas. Si de 
plus la balle n'est pas dans la raquette, on va en 1500. 


Les lignes 359 à 424 servent à calculer les nouvelles vitesses VX et 
VY après un rebond sur un plan faisant un angle A avec l’horizontale. 


Le sous-programme 59-99ÿ réalise toutes les initialisations néces- 
saires, variables, constantes et caractères. 


Les lignes 1999 à 1199 sont exécutées lorsque l’on a détruit toutes 
les briques, tandis que les lignes 1599 à 1580 servent lorsque la balle est 
passée à côté de la raquette. 


19 REM MUR DE BRIQUES X XX XX XX KOKOK OKON NN K 
BOL 

30 GOSUR 500 

40 : 

SO TH=<ÉEYSs: IF T#EDS OR TH:A$ THEN 190 
60 CURSET XR,YR, 23: CHAR KH,0,0 

70 IF T#é=A$ THEN Ji=J2:G0OTQ 110 

80 IF T$é=kR$ THEN Ji=-J2:G0OT0 110 

90 IF TH=C$ THEN Iiz12:GO0OT0 140 

100 IF T$=D$ THEN Ii=-I12:G0OT0 140 

110 ReR+JIs IF KR£-RM THEN K=-RM 

120 IF R:RM THEN REKRNM 

150 GOTOQ 170 

140 XR=XR+II:IF XREMG THEN XK=MG 

150 IF XR:MD-7 THEN XR=MD-7 

160 CURSET XR,YR,E 

170 CHAR 125+INT(R/J2),0,1 

180 : 

190 XA=X+VXXDT:YA=Y+VYXDT 

200 IF XAEMG OR XA:MD THEN A=PI:GOTOSEO 
210 IF YASMH THEN A=0O:GOTO 350 

220 IF YA:MER THEN 5320 

250 IF FOINT(XA, YA)=-1ANDYAËM THENZ70 
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240 
240 
260 
270 
280 
290 
300 
310 
20 


550 


540 
350 
560 
AO) 
80 
390 
400 
410 
420 
#50 
500 
510 
sine 
Te) 
140 
er er 0) 
60 
370 
340 
90 
TRI e) 
610 
20 
4350 
640 
[EL 
a C) 
470 
680 
690 
700 
10 


CURSET X,Y,O:CURSET XA,YA, 1! 

XæX As: YeYA: GOTO 50 
X1=6XINT(XA/6) : YI=GXINT(YA/6) 
CURSET X1,Y1.3:FILL 6,1,64 
NE=NE+ 1: FRINT:IF NRENT THEN 1000 
FRINT'EBriques casseess !"sNER:EXPLODE 
A=Qz: ZeFRE CM") 3: GOTO 750 

IF XAËXR-1 OK KA:XR+7 THEN 1500 

Az 


U=VXXCOS (A) +VYXSIN (A) 
VVYE=VXKSIN CA) -VYXCOS CA) : VX) 
XA=XA+VXXDT: YA=YA+VYXDT: FING 
IF XASMG THEN XA=MG 

IF XA:MD THEN XA=MD 

IF YAËSMH THEN YA=MH 

IF YAS:ME THEN YA=ME 

GOTO 240 

REM INITIALISATIONSXXKXKXKXEXEXXX 
TEXT: PAPER 23: INK © 
HIRES : RESTORE 


A$=CHKRS#& (11) FLECHE EN HAUT 
R&=CHRS (10) FLECHE EN BAS 
CH=CHKS& (9) FLECHE 4 DROITE 
D&=CHRS& (6)? FLECHE 4 GAUCHE 
PRINTAINEUT Force, c(CI=5) LEDT 

IF DT£1 OK DT:S THEN FING:GOTOS590 
X=120:Y=195" POSITION HALLE 

Az CRND (1) 5/2) XFI/2 

VX=COS (A): VYESTIN (A) VITESSE HALLE 
XR=120:YK=1923" POSTTION RAQUETTE 


MG=0:MD=259* LIMITES DE 
MR=199: MHx0Q? L'ECRAN 
M=1007 MILIEU DE L'ECKHAN 


R=Q? ANGLE RAGQUETTE 


720 
750 
740 
2Ejt) 
F0 
770 
790 
790 
800 
810 
8E0 
RFO 
840 
LS Hart) 
860 
870 
980 
290 
QU 
910 
920 
PART 
4}Q 
GEO 
Dé 
970 
GRO 
90 
1900 
1010 
1020 
1050 
1940 
1050 
1060 
1070 
1080 
1990 
1100 


J2=PI/36" INCREMENT ANGLE RAQUETTE 
2e INCREMENT FOSITION RAQUETTE 
RM=J2X2" ANGLE MAXIMAL RAGUETTE 
NT=40Kk10" NOMBRE TOTAL DE BRIQUES 
NE=O" NOMBRE DE BRIQUES CASSEES 
REM DEFINITION RAQUETTES---——————— 
DATA 000.0:3%:17:48.0,0 
DATA 0,0,0,0,7,56,0,0 
DATA 0.0,0,0,0,6%,0,0 
DATA 0,0.0,0,56,7,0,0 
DATA 0,0,0,48,12,3.0,0 
G=#9800 
FOR A=S+12EX8 TO S+177X8+7 
READ U:FPOHE AU 
NEXT A 
REM DEFINITION CARACTERE BLANC 
E=64 
FOR A=SG+64Kx8 TO S+64Kk8+7 
FPOEE 4,6% 
NEXT A 
CURSET O,6,2%:FILL 60,40,6% 
CURSET XR,YR, 3: CHAR 125,0,1 
RETURN 
REM._ GAGNEZ XOK X KK KO K 
TEXT: CLS: PRINT: PRINT 
FRINT CHRé# (4) 
PRINT SPC (12); CHRS (27) 5 "N": 
PRINT CHR$(27):; "AR R À V O" 
PRINT: PRINT: PRINT 
PRINT SPC (10): CHRS CE7) "9"; 
PRINT CHR$ (27); "EFLUS DE BRIGUE" 
PRINT CHARS (4) : PRINT: PRINT 
GOTO 1530 


ACKNE NOK OK NC ONCKK 
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1500 REM FERDUX X 4CK XOK OK NOK KM NOK MC HOKOK HOME NON 
1910 FRINT'SCORE FINAL: "3: CHRS#(27)s "A"; 
1920 FRINT NR:;CHRS (27) ; "9"; "RRIQUES" 
1550 FRINT'Voulerz-vous rejouer (O/N) " 
1540 INFUT T$ 

1550 IF T$="0" THEN 10 

1560 IF T$£S "NT THEN FING:GOTO 1570 
1570 TEXT:END 

1580 : 


1.12 BATAILLE NAVALE 


Ce jeu vous permet de jouer à la bataille navale en solitaire, l'ORIC 
se charge de placer les bateaux. Pour tirer, il vous suffit de frapper les 
coordonnées de l’endroit visé. D’abord, taper une lettre comprise entre A 
et J, puis un chiffre compris entre Ÿ et 9. 


L’ORIC a placé dans la grille un porte-avion (4 cases), deux croi- 
seurs (trois cases), trois torpilleurs (deux cases) et quatre sous-marins 
(une case). 


Les bateaux ne peuvent se toucher. Après chaque tir, l'ORIC vous 


indique ”’ à l’eau”, ”’touché” ou ”’ coulé”. 
Voici quelques explications sur le fonctionnement de ce programme. 
Tout d’abord, quelques initialisations, de 19 à 69. 


49 CLEAR sert lorsque l'on rejoue, il efface toutes les variables, ce qui est 
un moyen de les remettre à zéro. Le tableau JEU% sert à y placer les 
bateaux. Bien que la grille fasse 19x10, ce tableau fait 12x12. Ceci 
pour simplifier la programmation du jeu. Le tableau COULE®% sera 
progressivement rempli de ‘’@'’ au fur et à mesure que des bateaux 
seront coulés. 


De 89 à 159, on dessine la grille de jeu. 


109 On place en (9,l) un caractère 16 qui donne à l'écran la couleur noire, 
jusqu'à ce que l’on rencontre le caractère 29 placé par l'instruction 
suivante, qui redonne à l'écran la couleur bleue. 
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139 


200 


219 
220 
230 
249 
259 


300 


350 


419 


429 


430 


449 


Lorsque | varie de 2 à 11,1+46 varie de 48 à 57, on obtient donc les 
codes ASCII des caractères ‘’O'"’ à "9". 1+63 donne lui les codes 
ASCII des caractères A à J. 


Le bloc 169-389 place les dix bateaux dans la grille. 


La variable H permet de décider si le bateau sera horizontal (H=—1) 
ou vertical (H=—). 


X est l’abscisse de la case supérieure gauche du bateau à placer. 
Y est l'ordonnée de cette case. 

XF est l'abscisse de l'autre extrémité du bateau. 

YF est l'ordonnée de l'autre extrémité du bateau. 


à 290 On vérifie que les cases situées autour du bâtiment sont bien 
vides, que le bâtiment n'en touche pas un autre. Si tel n'est pas le 
cas, on va en 200, il faut placer ailleurs le bâtiment. 


à 340 On place le bateau dans la grille. Le chiffre des dizaines de 
1@+TYPE+N est TYPE et indique le type du bâtiment tandis que le 
chiffre des unités est N et indique le numéro du bâtiment. On peut 
ainsi stocker deux données dans une même variable. 


On stocke dans COULES% la longueur du bâtiment. 
Les lignes 399 à 449 lisent le tir. 


On lit un caractère. Si ce n’est pas une lettre comprise entre A et K, 
on recommence. 


On affiche la lettre, et l’on calcule l'abscisse X du tir, comprise entre 1 
et 19. 


On lit un caractère. Si ce n’est pas un chiffre compris entre @ et 9, on 
recommence. 


On affiche le chiffre, et l’on calcule l'ordonnée Y du tir, comprise entre 
1 et 10. 


De 469 à 499, on regarde si le tir a touché quelque chose. Si non, 


on place un point sur l'écran. 


519 
529 


Le bloc 519 à 559 est exécuté lorsqu'un bateau est touché. 


On détermine le type du bateau touché. 


On détermine le numéro du bateau touché. 
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530 On fait disparaître de la grille la case touchée. 
549 On décrémente la longueur du bateau. 


559 On fait apparaître sur l'écran un chiffre compris entre 1 et 4, qui 
indique la taille du bateau touché. 


De 560 à 599, on affiche le message approprié à la situation. Si la 
longueur du bateau est réduite à zéro, ce bâtiment vient d’être coulé. 


De 619 à 659, on regarde s’il reste des bateaux à flot. 


10 REM BATAILLE NAVALE X X 40K k HCOKOK OK HCNOK OK K 
ua 

30 REM INITIALISATIONS----——————————— 
40 CLEAR: DIM JEUX (11,11), COULEY% (4, 4) 
30 FAFER 4:1INE 7 

60 CLS 

ZOIS 

80 REM DESSIN DE LA GRILLE---------—- 
90 FOR I=Z TO 23 

FOULPÉUTS ETES FÉOMEO NI E0) 

110 NEXT I 

120 FOR I=Z TO 11 

150 FLOT 7,2X1,1+46:PFLOT 6+2XI,1,1+67% 
140 NEXT I 

1502 

160 REM ON FLACE LES HATIMENTS---——-—— 
170 FLOT 9,25, "Je place les bateaux" 
180 FOR TYFE=4 TO 1 STEF-1:VeTYFE-1 
190 FOR N=1 TO 5-TYPE 

200 H=-1s IF RND(1)5%,5 THEN H=O 

210 X&1+INT CCLO+VKH) XRND C1) ) 

220 Vel+INT((C1O+VX (NOT H)) XKND (1) ) 
250 KF=X-HXV 

240 YFæeY— (NOT H) KV 

250 FOR I=X-1 TO XF+1 

260 FOR Jev-1 TO YF+1 

270 IF JEUX(I,J)45:0 THEN 200 

20 NEXT J 

2POUNEXTINT 
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500 
510 
320 
HEO 
340 
550 
560 
#70 
390 
590 
400 
410 
#50 
450 
440 
450 
440 
470 
4890 
430 
500 
10 
de 
Te) 
340 
Dit) 
se 
KT 1) 
70 
580 
yo 
800 
10 
820 
850 
840 
850 


FOR I=X TO XF 
FOR J=Y TO YF 
JEUX CI,4J) =TYFEXI1O+N 


NEXT JM 
NEXT I 
COULEX (TYPE, N) = TYPE 
NEXT N 


NEXT TYFE 
REMNDERUNTEDUMIEUSSSTSSESTS SSSR 
FLOT 9,25,'"Que jouez-vous: 
GET A$:IF A$:"A"ORASENE" THEN 400 
FLOT 27,25, 4%: X=AGSC (AS) -64 

GET ÂA$:IF A$:"O"ORAS:"9" THEN 400 
FLOT 28,25, A8: Y=ASC (AS) -47 

IF JEUX (X,Y)55:0 THEN 510 

FLOTUAR ENS ER VER NES 

FLOTTE, À l'eau. 1 
WAIT 200:G0OTQ 400 
TYFEZINT (JEUX CX, Y) /10) 
N=JEUTX CX, Y)—-1OXTYFE 

JEUX (X, Y)=0Q 

COULE' (TYPE, N) &COULEX (TYPE, ND —1 
FLOT ZxX+6,2XxY+2, TYPE+48 


EXPLODE : IFCOULEYX (TYPE, No =OTHENS90O 
PÉGT T2," Touche. g 
GATO 410 

FLOTTE Coule !! { 


WAIT 200 

FOR Is1l TO 4:FOR Jæi TO 4 

IF COULEYX(I1,J)2:0 THEN 400 

NEXT JsNEXT I 

PLOT 9,25," GAGNE !!! À 
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1.13 MASTER MIND 


Le master mind est un jeu de réflexion auquel vous allez pouvoir 
jouer avec votre ORIC. La règle du jeu est la suivante: L’ORIC choisit 
une combinaison de quatre pions qu’il vous faut découvrir. 


Chacun de ces pions peut être rouge, vert, jaune, bleu, mauve ou 
cyan. Il vous faut découvrir la couleur et la position de chacun des 
quatre pions. À chaque coup, vous proposez une combinaison. L’'ORIC 
vous répond en plaçant sur l’écran une petite marque noire pour chaque 
pion de la bonne couleur à la bonne place. Puis l’ORIC ajoute une petite 
marque blanche pour chaque pion de la bonne couleur qui n’est pas à la 
bonne place. A l’aide de ces indications, il faut trouver la combinaison 
cachée en le moins de coups possible. 


A chaque coup, les touches ” flèche à gauche ” et ” flèche à droite” 
vous permettent de déplacer le curseur, qui a quatre positions possibles, 
celles des pions. Les touches R, V, J, B, M et C font apparaître un pion à 
l'emplacement du curseur. Lorsque vous avez placé dans la grille vos 
quatre pions, frappez RETURN. Si vous abandonnez, frappez ESC. 


Voici quelques précisions sur la structure du programme. Des 
lignes 39 à 49, on trouve les initialisations nécessaires au jeu. 


De 49 à 99, on définit les deux caractères représentant le pion et la 
marque. 


De 139 à 149, on définit le grand rectangle noir qui servira de grille 
de jeu. 


De 169 à 199, on trace le petit rectangle sur lequel le mot ” master 
mind” est inscrit. 


De 219 à 239, on définit les différentes couleurs. 


De 259 à 319, on trace un rectangle noir dans lequel on affiche les 
couleurs possibles. 


339 L est le numéro de la ligne où se trouve le curseur. 


359. NC est le nombre de coups joués. 
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De 379 à 490, on remplit le tableau S avec quatre nombres compris 
entre 1 et 6, qui représentent la combinaison à trouver. Ces nombres sont 
les couleurs des pions. 


Le jeu lui-même est constitué des lignes 599 à 1919. 


529 On déplace de 16 positions vers la droite le curseur pour le placer sur 
la première colonne de la grille de jeu. 


Les lignes 5% à 619 lisent une touche T$ et effectuent le branche- 
ment adéquat. 


574 Si on a frappé ESC, on abandonne, on va en 1170. 


580 Si on a frappé RETURN, il faut analyser la combinaison proposée, ce 
que l'on va faire en 700. 


594 Si l'on a frappé ‘flèche à gauche’ où ‘flèche à droite”, on va en 63Q 
pour déplacer le curseur. 


699 Si l'on a frappé R, V, J, B, M ou C, on va placer un pion en 676. 


619 Sinon, on ne fait rien de particulier ou on recommence la lecture. 


De 639 à 654, on déplace le curseur, à condition de ne pas sortir de 
la grille. On affiche deux fois T$ en 659: ainsi le curseur se déplace de 
deux crans. 


De 679 à 689, on affiche un pion à l’endroit désigné par le curseur. 
La couleur du pion est I. 


De 7% à 999, on analyse la proposition. On compte d’abord le 
nombre N de marques noires, puis ensuite le nombre B de marques 
blanches. 


De 929 à 989, on affiche la réponse de l’ORIC. Si on a quatre 
marques noires, la combinaison a été découverte et l’on va en 1199. 


Si vous n’avez pas trouvé la combinaison et que la grille est pleine, 
ce n’est pas très brillant et on exécute le bloc 1939-1999. 


Si vous avez trouvé, on va en 111, on affiche en double hauteur le 
mot BRAVO”. 


Puis, si vous avez trouvé, ou si vous avez frappé ESC, les lignes 
1179 à 1229 découvrent la combinaison cachée. 
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Couleurs 
possibles 


10 
20 
F0 
40 
0) 
ét 
70 
80 
90 
100 
110 
120 
150 
140 
150 
160 
170 
180 
190 


200 





REM MASTER MIND x % 4 4H HN KOKOKOK NOK KNOKKK 
REM INITIALISATIONS--- 
Pal: ReP+l 
FOR I=HR4OO+6XF TO HARA4OO+BXKR+7 
READ V:POHE I, V 
NEXT I 
DATA 0,28,67,67,62,62,28,0 
DATA 0,0,12,350,20,12,0,0 
IN=O: PA? 
INF IN: FAFER FA:CLS 
FOR Isi TO 22: FLOT25,1I, 16+PFA:NEXT 
FOR I=i TO 22:FLOT 14,1,16:NEXT 
FOR Iz24 TO25:FLOTES, 1, 16+FA:NEXT 
FOR I=24 TO25:FLOTI4,I,17+IN:NEXT 
FLOT 17,24, "Master" 
Le PE OS RCE EE A Va 


210 
220 


230 


240 
Ea0 
260 
270 
240 
290 
300 
310 
520 


ET 


340 
350 
560 
370 
380 
390 
400 
00 
510 
520 
si 
540 
550 
560 
710) 
580 
590 
600 
610 
620 
8E0 
640 
850 
660 
670 
680 
690 
700, 


DIM C#(é)s:CSC1)et Rs CS (CE) =N y 

CH Ces CS (4) = Rs CS CE) "M" 
C$(é)æ"0" 

FÉOTÉ2 4 CeuleUurs 

FLOT 2,2, "possibles" 

FOR Ted TO 11: FLOT9,1, 16+PFA:NEXT 
FOR Ie4 TO 11: FLOT 4,17, lés NEXT 
FOR I TO 10 

PLOT S,1,1-4:PFLOT 6,1,C#(I-4) 
NEXT 


PRINT: PRINT: L=2 


NC= 1 
DIM S(4),F(4),FS (4) 


FOR Iæi TO 4 

STI ÆINT CSKRND (1) +1 

NEXT TI 

REM DERUT DU PROGRAME ee ae ee ve 
FOR COUP&=1 TO 20 

FORI&OTO1Ss FRINTCHRS C9) 3 : NEXT 
FLOT 4,17,"Votre" 

FLOT 1,18, "proposition?" 

LEFRE C0) | 

GET T$sIF TéeCHRS (27) THEN 1170 
IF THECHAS (15) THEN 700 

IF OTÉECHRS (9) ORTSECHRS (9)  THEN6GEO 
FOR Izi TO G:IF TéeC$(I) THEN 670 
NEXT:GOTO 570 

TFFQS (00 EL OANDTSECHRS (9) THEN 570 
TFFOS (O0) HASANDT#E=CHRS# (9) THEN 570 
FRINT T$aT#s: GOTO 570 


BLOTFOS COLE SPA LOTÉOS(0) =? LT 
GOTQ 570 


FLOT 4,17," " 
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710 
720 
7:50 
740 
740 
740 
770 
780 
790 
800 
810 
220 
Le: BTE) 
840 
850 
860 
470 
880 
890 
900 
910 
9E0 
950 
40 
950 
960 
970 
9890 
990 
1000 
1010 
1080 
1050 
1940 
1050 
10460 
1070 
1080 
1090 
1160 


PLOT 1,18, "Voyons... M:WAIT 120 
FOR Izi TQ 4:F(I)=0:FS(I)#O0:NEXT 
RENM COMRIEN DE NOIRS © 

Nz0 

FOR I=zil TO 4 

IF S{I)<i: SCRNCILZE+ZXI,L) THEN 790 
FiI)=lsFS(I) els: NENt+I 

NEXT I 

REM COMRIEN DE BLANCS 7? 

EH=0Q 

FOR Izl TO 4 

IF F(l)æl THEN 960 

FOR Jx1i TO 4 

IF FS(J)=i THEN 890 

IF SJ)ESSCRNCIZ+2XI,L) THEN 890 
FlT)=1ls:FS(J)=ls BeR+1: GOTO 900 
NEXT J 

NEXT I 

IF Ne THEN 950 

1 DEL QC IE 

FORI=1TON: FLOT26+I,L,R:NEXT 

IF EBzO THEN 9680 

PÉQTSR9 TEST 

FORI=1TOR: PLOTEQ+I,L,R:NEXT 

IF Ne4 THEN 1100 

FRINT3:LeL.+1 

NEXT CQUF 

CLS: FAFER 1:INE 7 

FRINT: FRINT: FRINT: FRINT:FRINT 
FREINER CSRÉCIESI A MVOUSZETES" 
FRINT:FRINT: PRINT CHRS (4) 

PRINT SRG 'CL EN): 

FRINT CHR$ (27) 3; "NNUL "3: CHRS& (4) 
END 


11,46 
1120 
1150 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


1220 


CALE, 


REM TROUVE-- ne 
PLOT 3,17,CHR$(10)+"ERAVO !" 
FLOT 1,18,CHR#(10)+"  ERAVO :!" 
PLOT 12,17,8:PLOT 12,18,8 

FING 

FLOT 14,24,16:FLOT 25,24,16+PA 
FLOT 14,25," " 

FOR I=1i TO 4 

FLOT 13+2%41,24,S(1) 

FLOT 14+2%1,24,P 

NEXT I 


1.14 BEATLES 


Ce programme n’est pas un jeu, il a simplement pour but celui de 
vous distraire avec quelques notes de musique, empruntées aux Beatles. 
Il peut aussi vous montrer comment programmer vos propres morceaux. 


Chaque mesure correspond à quatre lignes de DATA. Les doubles 
zéros que l’on a placé dans les DATA ne sont pas joués, mais sont des 
points de repère pour pouvoir jouer les reprises. 


Les ordres RESTORE permettent de se replacer au début de la 
partition, tandis que les lectures ”bidon ” des lignes 2949, 2060 et 2994 
permettent respectivement de sauter 1, 1 et 2 mesures. 


En modifiant les ordres PLAY et WAÏT de la ligne 2549, vous 
pourrez obtenir d’autres sonorités et tempo. 


2000 
2010 
2020 
20E:0 
2040 
20850 
2060 
2070 


REM MUSTQUE X XX OK OK OKOKOKOKOK HONOR NOK KO HOKONK 
DU=5000:GOSUR 2510 

GOSUR 2510 

RESTORE : GOSUR 2510 

FOR I=1 TO 25:READ E,N:NEXT 
GOSUR 2510 

FOR I=i TO 24:READ E,N:NEXT 
GOSUR 2510 
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2080 
2090 
2100 
2110 
2120 
2500 
2310 
en) 5 Lr la) 


PE70 


PAM ENLE 


2540 


10) 


25 540 
FO000 
FO01 
FO 
FOOZ 
HO04 
FOOS 
FO06 
F007 
5006 
500% 
5010 
3011 
FO1Z 
FOI1Z 
014 
FOIS 
5016 
3017 
5018 
5019 
3020 





SOLS 
FO0T4 

5075 
FO6 
3027 
F028A 


RESTORE: GOSUB 2510 
FOR 1=1 TO 49:READ K,N:NEXT 
GOSUE 2510 

WAIT 200:PLAY 0,0,0,0z:END 


RENM-- ee ee ee ee ee 
FOR Ii TO Z:READ EN 

IF N=Q THEN RETURN 

MUSIC T'ES Ns O:NEXT 

FLAY 7,0,1,DU:WAIT 153: G0T0 2510 
REN With À Little Help From 
REM My Friends 

DATA 5,5%, 1: £ 4 Gael est 
DATA Tibaïals 2,8.3,8.%,1,2,.8 
DATA 5,8,2,12,2.08,5.9,2,12,2,8 
DATA Glen ie ones les ere 
DATA RS TUE Grues LOTS 
DATA RSS D 0 Die 010 cb 
DATADERÉ SE ATOS EN ET bee LOS PS 
DATA er LOT 2e Sa Ogee LORS 
DATA Sir es 10 26 tits rs Os es 6 
DATA SSP TO EG Tr se NO TE 
DATA 2 

DATA E, 
DATA %, 
DATA € 












Ne hd 
CS Re 2e ep ie 
lébacteder tes ds 


ef 1 

PRET LISTET 1 
DATA le ace Route 
DATA ae ee ERA 


on] 


DATA HS LP BI Set. 1,2 
DATA Son. Le PA De 
DATA 3,8,7,12,7,8.3,8.2,12,2,8 
ii M OO ee ee 
DA mie 100 Ga iv l0 ee 
DATA 3,5,2,10,2,6,7,6,2,10,2,6 
DATA TE GE NON diet ne 
DATA 26,2,10, 2,3 4:6: 2, 10,0, 


DATA 2,5,2,10,7,6,2%,5,2,10,2,6 






3029 
FOEO 
AOF 
SORT 
FOGE 
FO54 
FOSSES 
506 
3057 
FO 
FOE9 
3040 
3041 
5042 
SO4S 
3044 
OS 
5046 
3047 
3048 
3049 
3050 
FO 1 
5052 





SOS 
3054 
5055 
31056 
3057 
FOSSES 
3059 
3060 
35061 
FO6E 
HO 
3064 
3065 
31066 
3087 
3068 
506% 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA : 
DATA : 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 2 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA : 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 3 


DATA 


DATA £ 


DATA 
DATA 


DATA 
DATA 3 


DATA 
DATA 
DATA 
DATA 


M ne 

SR 
Ta Da La On 2 Ô 
Se 2s85 231 


1 0 
"1 
Dress 
RCE 
D: 


= 
eo 
= 


uacesvas 
ÉA &4 19 19 F9 


-s 
= 
ET 
eo 


cn CO CH CM me Ed LA 


LA LA LA La LA LA 4 


ERSRSRCRCRCRE 


-= 
E] 
s 


"# 


Sas dilué s ous lacs ll 0 
Sylnrallu2s6s do tars dl 2,6 
Sn Las Os Dnbsds 1,2,10,2,6 
las LORS O as le: 110,240 
se CR PR PE Sylorn On 20 9 
an tanins Las erÉlane Que 
0,2 Biol e,1,2,1 
ee aa end ia ne Sa et el ae se 
RE D EE D ee 
NE Mi nc Dre D 
Sn oi ec ae 
Re OR RO 
als nent ia cn Mas naar 
BL Pas Solo 2583295 
PAL PR © PR ER Gen PES PA 


CS A r 
ag on da a du NE a tiens Vas a 


Re OPA De ii en Poe 
ie OR D Aloe 
tds r 10 ot lan 10 ee 
A D mr AAA OR 
Où © 
3,1.:2,8,2,5.5.1,2,8,2,5 
DS 2)S er l,28ee 
LOTO: 10, 2102210 
2,10,2,12,2,12,2,12,2,17 
to Laos 
Se 0,7, St 22,88 2,5 
Mo lose do 10 
TOO 


3,1.2,8,2,5.3,1,2.8,2,5 
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5070 
3071 
5072 
5073 
5074 
FO7S 
5076 
3077 
7078 
5079 
F080 
3081 
5087 
FORT 
3084 
3085 
5086 
5087 
3088 
5089 
5090 
FO91 
7092 
FOQE 
5094 
2095 
F096 
3097 
F7098 
5090 
3100 
F101 
5107 
FO 
5104 
F105 


35106 


DATA 


DATA 35 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA € 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 


S1,2:0,2,5:3:1,2,8,2,5 
3,1.2.8,2,5,3%,1,2,8,;2,5 
DO OS 0 000200010070: 0 
A1, 35e ds td tata, 2, 
HS EAN ad lit set 
4,125 354,108: %5 
4,1,3.5,%5,4,1.3,5,3,5 
NE A EE En PE 7 AR EST TE 
Re 6 A te LE 
ES De rt REP DE Dre Dr 
No as le sud dois 


E 
co 


3,5,5%,.1,2,8.2%.5.3. 
SERRE ETL-PEIETETE EEE 
Homo tle és oo LS 0 
EDR E SAR De SR es DEA Mr 
RAP MO PL tel, 2 de 
de LR LOMME NASA 20 
ES PROD ET - MS DL 
SU SA 02 es Sr 10 2 20 
RC NN A OR lent 

Fe QE DE cr EC LE. AS EE Pie A PE à 


PR PESTE RTC TE TR ERTE TETE 


bb 
J 


œ 


dits sas sa du los os do 


A RS GS re AE Te 
NN PA EE Vo Ed 


DOS 7e mere M) RD 


fans 
Bose ses sos ras 
Sas os la css pds lsest 
Sans lari ts soda lscs 
Dada iles os ds das less 
Samacedde es oasis 10 
Solar lo Os lara O2 
Dsl: 1026533 1,2:10,2: 
False 10120658 nln28 10121 6 
Salam lo 6 osdlssl0 2e 
Q, 0 


1.15 PENDU 


Le but de ce jeu est de deviner un mot, que l’ORIC tire au sort. A 
chaque coup, vous proposez une lettre. Si cette lettre n’est pas contenue 
dans le mot, un membre du pendu est ajouté. Vous avez le droit à six 
erreurs. 


Tout d’abord, le programme vous demande le nom de la rubrique 
d’où il va tirer le mot à chercher. Les trois premières rubriques, MUSI- 
CIENS, SPORTIFS et HISTOIRE contiennent des noms d’hommes 
célèbres. La rubrique BOISSONS contient des noms de boissons, géné- 
ralement alcolisées. La rubrique ACTEURS contient aussi des noms de 
personnages célèbres. Enfin, STOP permet de sortir du programme. 


Si vous ajoutez des noms à une rubrique, n’oubliez pas de modifier 
en conséquence la ligne 39 ou 35. En effet, S(@) contient le nombre de 
noms de la première rubrique, S(1) contient le nombre de noms de la 
seconde rubrique, etc. 


Voici quelques explications sur ce programme. Tout d’abord, de la 
ligne 5 à la ligne 35, quelques initialisations : 


15 L$ sera utilisé pour stocker, dans l'ordre alphabétique, les lettres déjà 
proposées par le joueur. P$ contiendra les caractères qui figurent les 
membres du pendu, D$ contient la définition du pendu, MOTS contient 
les lettres du mot découvertes et S contient le nombre de mots de 
chaque rubrique. 


20 On range dans D$ les caractères qui figureront les membres du pendu. 
39 à 35 On place dans S le nombre de mots de chaque rubrique. 


De 45 à 135, on demande au joueur la rubrique qu’il choisit, on lit 
sa réponse, et l’on se branche en fonction de sa réponse. 


De 149 à 179, l'ORIC tire le mot que vous allez chercher. 


169 à 165 On saute tous les mots correspondants aux sujets situés avant 
le sujet choisi. 


179 On lit N mots du sujet choisi. A la sortie de cette boucle, MOTS 
contient le dernier mot lu. 
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180 
185 
199 
200 


220 


225 
330 


335 


355 


365 


399 


495 


410 


415 
420 


De 175 à 229, on effectue quelques initialisations. 


On remplit de blancs le tableau des lettres déjà proposées. 
On remplit de blancs le tableau des membres du pendu. 
Idem avec le tableau qui représente le mot sur l'écran. 


à 215 Dans le tableau MOTS, on place un tiret à la place de chaque 
lettre du mot à chercher. Les caractères qui ne sont pas des lettres 
(blancs, tirets, etc...) sont placés tels quels. 


On construit une chaîne d'étoiles égale à la longueur du mot à cher- 
cher plus 4. 


La boucle de jeu est formée par le bloc 225 à 425. 
à 330 On affiche le jeu. 


Si F=1, le jeu est terminé. On lit une touche quelconque et l'on se 
branche au début pour recommencer. 


à 345 On lit un caractère proposé, en vérifiant qu'il s’agit bien d'une 
lettre. 


De 359 à 425, c’est l'ORIC qui travaille. 


On vérifie que la lettre L$ n’a pas déjà été proposée. Si c'est le cas, on 
va en 4265. 


à 385 La lettre L$ est insérée dans la liste des lettres déjà proposée, 
de façon à ce que cette liste soit classée dans l'ordre alphabétique. 


à 405 Les lettres du mot égales à la lettre proposée sont placées 
dans le tableau MOTS. En sortie de cette boucle, OK vaut 1 si la lettre 
proposée était bien dans le mot. 


Si le mot a été trouvé, on positionne F à 1. 


Si la lettre proposée était bonne, on efface le message précédent s'il 
y en avait un. 


La lettre proposée n'était pas bonne, on ajoute un membre au pendu. 
Là, vous êtes très mal! 


Les mots sont stockés dans une liste DATA, en 199 pour la 


première rubrique, en 29 pour la seconde, en 3% pour la troisième, 


etc. 


60 


* 
* 
# 
# 
* 
* 
: 
# 


ÉHHHHHK 


* 
* 
*& 
* 
* 
* 
* 





3 REN INITIALISATIONSEIINNISENNNNNNY 

10 CLESR 

15 DIM L$i25),P$18),D$t4),MOT#(20),S15) 
25 D$i0i="0":D$(1)=" 1": D$(2)= "I: D$(3)=" 7" 
35 D$i4)="\tiD$t5i2"/":D$té)=" 1" 

30 510)=29:5(1}=25:5(2)=25:5(3)=25 

35 5(4)=25:6(5)=100 

40 REN CHOIX DU SUJET---------------- 

45 TEXT:CLS:PAPER2: INKO: PRINT: L20:F=û: J=û 
39 PRINTSPC (10); *JEU DU PENDU*: PRINT 

35 FRINT'Les sujets sont -MUSICIENS" 

ëÿ PRINT SPORTIFS" 

85 PRINT" -HISTOIRE® 

76 PRINT* BOISSONS" 

75 FRINT® CAPITALES" 

8ÿ PRINT ACTEURS" 

85 PRINT" SEXE" 

GG FRINT* -STOP* 

33 PRINT: PRINT: INPUTVOTRE CHOIX *:CH$ 
160 IF CH$="MUSICIENS® THEN CH=0:6010 145 
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105 IF CH$="SPORTIFS®" THEN CH=:G0TO 145 
iiû IF CHS="HISTOIRE" THEN CH=2:60T0 145 
1i3 IF CHS="BOIGSONS* THEN CH=S: GOT 145 
120 IF CH$="CAPITALES THEN CH=4:G0TO 15 
23 IF CHS="ACTEURS" THEN CH=5: 6070 145 
37 IF CHSSSSENE" THER 10090 
130 IF CH6=*STOP THEN PRINT'AU REVOIR. ":END 
139 PRIAT'RATE DIR GOTO #5 
146 REN CHOIX D MOT À TROUVER-----—- 
145 N=INTIRNDCSH ES ICH) +] 
156 RESTORE 
155 IF CH=û THEN 176 
186 FOR si TO CH:FOR Jei 70 S(1- 
loë RESD MOTS: NET GI 
155 FOR Tai TO NeREAD MOTS: NET 
135 REN PREPARATION GE L'AFFICHAGE-—- 
186 FOR Led 70 ZHsLSITI=CHRS SZ): NET 
185 FOR Let T0 &B$(Ii=CHRS (ZI: NET 
190 FOR Feû T6 SO: MOTS (TI2CHRS (TDi NET 
:FINSLERCHOTS) 
si TO FINIVS=NIDS(HOTÉ, 25 
SI" THEN MOTHEI-ji=t- 6070 i5 















= à 
235 PRINT 
345 et AU NS 
(8i;'i ÿ 
PRINT Hétiditititt à DEJA PROPOSEES à 





235 PRINT" CARE LPS CHTT IFR L 

260 FRINT® à --—— OCR PE PAIE 1 
: 

62 PRINT Ste" "lis" iléiéist 

265 PRINT® OH 1 OL 4 pigpt(lés"p 

270 PRINT" HO D OU OH OH "il#i7);" "iLé(B)s" iLé(9)s" sLé( 


gi" 
272 PRINILS UD" iL8 (Dig "3LS(T)" 4 

275 PRINT # "PSI" &  4';SPO(éijrt" 

2RO PRINT" D! M:P#OPSDIsP#iAE" D D M;Léitdhs" "LS (5 


ie | 

282 FRINTL#(éi;" "iL#(17)5" sLé(i)s" sLé(ies" sLé2O) se à 

285 PRINT" OO! "sPéO2ii" Of f"iGPC(Ié)E"h" 

290 PRINT" D OL "ip#lShi" "iPétgii" Of À ";Lé{21);" ";Lé(22); 
3 

292 PRINTLS123);" "ilL#(Zd)s" 5Lé(25i" 

295 PRINT" # t  H';SPC(lb) "te" 

300 PRINT" à ONTITICITIIIITI LIN 


305 PRINT" $ Ji t" 
310 PRINT* 4 ------ à "ic 
315 PRINT" à tr"; 


320 FOR I=1 TO FIN:PRINT MOT#{I-1H5:NEXT 

325 PRINT" à° 

330 PRINT" HNHANNNNRNNNR "iCS:IF F=1 THEN GET A$:G0TC 5 

335 PRINT:PRINT: PRINTCHR# (14); "Quelle lettre proposez-vous "; 
340 GET L$:IFLS<"A"DRLS:"7"THENTAO 

345 PRINT L$ 

350 REM TRAITEMENT 

355 FÜR Ieû TO 25:1F L$(1isié$ THEN 425 

380 NEÂT:DK=û 

365 FOX Isû TD 29:IF LééLéil} THEN 540 

370 IF L$(}i=" " THEN 380 

373 NEXT 

380 FOR 3223 T0 [+1 STEP-LiL#{J}=L$i-L):NEXT 

JE5 L#(P)=L8iTR=i 

290 FOR I=1 TD FIN:V$=MID# (MOTS, 1,1) 

395 IF V$=L$ THEN MOT$(I-1)=L$:0K=1:LeL+#i:G0TO 40 

406 TR=È 

405 NEXT:IF LeLEN(MOTS} THEN PRINT'ERAVO !°:F=1:G0T0 235 

410 IF OK THEN PRINT GPC(21):G0T0 225 

415 P$iK}=D${R):K=K+I:IF K&7 THEN PRINT SPCI21;:60T0 225 

420 PRINT'Le aot etait ";MOT$:F=1:60T0 2235 

425 PRINT “CEJA PROPOSE": 6010 225 

1000 DATA BERLIOZ, BACH, BEETHOVEN, BIZET, BRAHMS 

1001 DATA CHOPIN, BUXEHUDE ,HUMMEL, MOUSSORGEKY, FACHELHEL 

1002 DATA JOSQUIN DES PRES, WAGNER, MENDELSSOHM, SCARLATTI, NOLLEMHAUPT 
1003 DATA CZERNY, BRAUNGARDT,RAMEAU, ROSSINT, SCHBERT 

1064 DATA SCHUMANN, HEBER, MATART, VIVALDI, OFFENBACH 

ZG00 DATA TABARLY,PROST,FLATINI, KILL, BORG 

2001 DATA RUSSEL, "CASSIUS CLAY", "MADAME CLAUDES, DARNICHE, “NIKT LAUD 
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2902 DATA CAN, PIRONI,LAFFITE, ZITRONE, CHICHESTER 
2002 DATA JAZV,MIMOUN, SN*UETIL, BOBET,HINAULT 
2004 DATA POLENTIER,HOSER, POULIDOR, COFI,RAAS 
3000 DATA "DE GAULLE®, CHARLEMAGNE*, VERCINGETORIK", ATTILA, NAPOLEON 
3001 DATA HITLER, WAGHINGTON, CHURCHILL, PASTEUR, FLEMNINE 
3002 DATA PETAIN,"HIRO HITO,"PEPIN LE BREF*,CLOVIS 
3003 DATABERTHE AU GRAND FIED, “BLANCHE DE CASTILLE",ROOSVELT, KENNED 
Y,DESCHANEL 
3608 DATA*LA FOMPADOUR*, "MUSTAPHA KEMAL*,POMFIDOU, NIKON, BREJNEV 
4606 DATA CONTREXEVILLE, ARMAGNAC, WHISKY, VODEA, BEN 
4601 DATA FRAMBOISE, GENEPI, CHARTREUSE, SAUTERNES, JULIENAS 
4002 DATA*CHATEAU PETRUS", CHAMPAGNE, COGNAC, RIESLINE, GENÜRSTRAMINER 
4603 DATA FOIRE, GNOLE, SCHNAFS, PEIKTURE, TRICHLORETYLENE 
a0û4 DATA BRANDY, MADERE, PREFONTAINES, CIDRE, SAkE 
a000 DATA PARIS, LONDRES, BONN, ROME MADRID 
5001 DATA HASHINGTON, TRIPOLI, RAD, LE CAIRE®,RARAT 
2602 DATA TANARARIVE, AOSCOU, ANKARA, PEKIN, BANGKOK 
2007 DATA TEHERAN, BAGDAD, MONTREAL, RANBOON, TOKIO 
5004 DATA BRASILIA, MEXICO, GECRGETOWN, CANBERRA, BAMAKO 
8000 DATA HEPEURN, BOGART, BRANDO, GIRARDOT, MASTROTANNI 
ä00i DATA CASSEL, DELON, SINATRA, CECCALDE, GALABRU 
8002 DATA MEURISSE, FERREOL, NOIRET, MONTANT, BURTON 
8603 DATA DARC,WELLS, DENEUVE, BELMONDO, WINDHARK 
8604 DATA FIAT, DARRAS, NEMMAN, SELLERS, VANNECK 
8905 DATA LOREK, MOREAU, FLYNN, DEFARDIEU, BRYNNER 
8006 DATA LOLLOBRIDG1D4, COMSTANTIN, ANDRESS, MARIELLE, KEATON 
8607 DATA CHAPLIN, LAUREL, HARDY, JOBERT, BLANCHE 
8008 DATé DIFILHO,BLIER, MONRDE,POIRET, BOURVIL 
600% DATA FERNANDEL, LEUIS, YANNE, DAUPHIN, DEREK 
&G15 DATA DUTRONC, MANFREDI ,MAYNE, USTINOV, CURTIS 
sû1i DATA SERRAULT, BALASKD, DENAERE, BALUTIN, TOGNAZET 
BUiZ DATA PICCOLI,PACOME, HUPPERT, ASTAIRE, PRESLEY 
313 DATA ADAMD, HOLDEN, GABIN, BRIALY, SIGNORET 
di DATA ADJANT, CARREL, VENTURA, HANIN, SCHNEIDER 
6015 DATA LAFONT,GLASER,TRINTIGHANT, TAYLOR, GASSMAN 
£ÜÏS DATA FONDA, SHARIF, SEBERG, ROCHEFORT, LANVIN 
8017 MITCHUM, HESTON, FOGSEY, AUCLAIR, BUINN 
8018 DATA JOUVET, BRASSEUR, MARAIS, HORGAN, HOFFHAN 
8019 DATA CARNET, HARDOT, NEVILLE,KELLER, CHAKIRIS 








 16*06 REM COMMENTAIRE FOUR SEXE------ 


16008 CLS: PRINT: PRINT 


8016 PRINTSJE NE JOUE PAS AVEC VOUS” 
100i5 FRINT'ESFECE DE SATYRE iii" 
10020 PAPER 6:EXPLODE:HAIT 250 

10025 FRINT:PRIAT 

16030 FRINT'JE REFUSE DE JOUER AVEC" 
1635 PRINTUN TEL ORSEDE.* 

1040 PAFER 

6945 FOR 12! TO 1G:SHOOT:HAITIG: NET 
10080 PRINT: PRINT: PRINT 

0055 PAPER | 

10660 PRINT'FOUR QUI ME PRENEZ-VOUS 


16076 FOR I<1 TO 7 

10075 ZAP:WAIT IO:EXPLODE: NAIT 5 
iüü80 NEXT 

I00ES FOR I=iT0 2ù 

1606G SHOGT:NAÎT 8 

10095 NEXT:PRINTCHRS (6) 
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2 


Quelques 


renseignements utiles 
pour programmer vos jeux 





2.1 GESTION DE LA MÉMOIRE DE L'ORIC-1 


Lorsque l’on programme en basic, on n’a pas à se préoccuper de la 
façon dont la mémoire est gérée, utilisée. Par contre, dès que l’on intro- 
duit quelques instructions de langage machine, ou même plus simple- 
ment, dès que l’on utilise PEEK, DEEK, POKE ou DOKE, il faut 
malheureusement entrer dans ces détails sordides que sont une gestion 
mémoire. 


Tout d’abord, voici la carte mémoire de l’ORIC: 
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en mode HIRES en mode TEXT 






























FFFF-65535 FFFF-65535 
C099-49152 C00ÿ-49152 
D 
BFE9-49129 BFE9-49129 
BB89-48900 
A090-40969 B800-47104 
9C00-39936 B490-46080 
98099-38912 9F04-49704 
programme Basic programme Basic 
(début en 4591) (début en #51) 
500-1280 590-1289 
de 499 à 420: rien 
400-1924 400-1924 
adresses d'entrées/sorties 
300-768 300-768 
209-512 209-512 
190-256 190-256 
page Ÿ utilisée 
9-0 9-9 





Les adresses sont données en hexadécimal puis en décimal. 
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a) La page zéro. #0 à #FF 


Par construction du microprocesseur 6592, qui équipe votre ORIC, 
les octets d’adresse @ à 255 peuvent être lus ou écrits plus rapidement 
que les autres. Dans un souci d’efficacité, il est conseillé de placer dans 
cette zone les quantités auxquelles le microprocesseur accède le plus 
souvent. Le Basic utilise la plupart de ces octets. Si vous écrivez un sous- 
programme en langage machine utilisé depuis un programme Basic, il est 
conseillé d'employer les octets inutilisés par le Basic. C’est le cas de la 
zone d’adresse Ÿ à 11 (49 à #B). 


b) La pile du microprocesseur. #10 à #1FF 


A chaque fois qu’une instruction JSR, PHA ou PHP est exécutée 
par le 6502, l’adresse de retour ou l’accumulateur ou le registre d’état est 
empilé dans cette zone. Il est très fortement déconseillé d’écrire dans 
cette zone, sauf si vous aimez vivre dangereusement. 


c) Zone de travail du Basic. #200 à #2FF 


Le Basic a besoin de mémoire pour travailler. Il utilise la page zéro, 
la zone #2090 à #2FF et la zone #421 à 4FF. 


d) Les adresses d’entrées/sorties. #30 à #3FF 


Il n’y a pas de mémoire à ces adresses, mais tous les dispositifs 
externes à l’ensemble microprocesseur-mémoire. On y trouve entre 
autres le clavier, le magnétophone, le synthétiseur, etc... 


e) Zone de travail du Basic. #421 à #4FF 


Il est à noter que la zone #49-#420 est inutilisée. Vous pouvez 
l’employer pour y placer des sous-programmes en langage machine. 


f) La zone programme Basic. #50 à #97FF 


On y trouve d’une part le programme Basic lui-même, d’autre part 
les variables. Plus précisément, on a dans cette zone, l’organisation 
suivante : 
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adresses hautes «— A6-A7 HIMEM 


Chaînes 
«— A2-A3 

Zone vide 
«— Aÿ-A1 

Tableaux 
«— 9E-9F 

Variables simples 

«— 9C-9D 


Programme Basic 





adresses basses «— 9A-9B, normalement 591 


— En partant des adresses basses, on trouve d’abord le 
programme Basic lui-même. L’adresse-mémoire du début du programme 
est rangée en 9A-9B, elle vaut normalement 591. En tapant PRINT 
HEXS$(DEEK(#9A)) vous obtenez cette valeur. 


— Ensuite on trouve mélangées les variables entières, les variables 
réelles et les noms des variables chaînes. L’adresse-mémoire du début de 
cette zone est rangée en 9C-9D, on peut la lire en exécutant PRINT 
HEXS(DEEK(#9C)). 


Comme les zones programme et variables simples sont contiguës, 
on peut considérer que cette adresse est aussi celle de la fin du 
programme. 


Chaque variable simple occupe sept octets de mémoire. Les 
variables sont placées en mémoire au fur et à mesure qu’elles sont 
rencontrées, tous types mélangés. 


* Variable réelle: nombre flottant à 5 octets 


EXP M 
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P1 et P2 sont les deux premiers caractères du nom de la variable, 
en code ASCII positif (P1<128 et P2<128). Si le nom n’a qu’une lettre, 
P2 vaut (. 


Le troisième octet contient l’exposant plus 128, les quatre derniers 
octets constituent la mantisse, qui est comprise entre 1 et 1/2. Le nombre 
stocké vaut M.2(EXP—128), 


* Variable entière: nombre à deux octets en complément à 2 


N1 et N2 sont les deux premiers caractères du nom de la variable, 
en code ASCII négatif (N1>128 et N2>128). 


* Variable chaîne: chaîne de @ à 255 caractères 


CALE Leone Lu Lu] 


Le premier caractère du nom de la variable est stocké en code 
ASCII positif, tandis que le second est stocké en code ASCII négatif 
(P1<128 et N2>128). Le troisième octet contient la longueur de la 
chaîne, Ÿ si elle est vide. Puis l’on trouve, sur deux octets, l’adresse- 
mémoire de la chaîne. On a d’abord l’octet de poids faible, puis l’octet de 
poids fort de cette adresse. 


La chaîne elle-même peut se trouver soit dans la zone de stockage 
des chaînes, en haut de la mémoire, soit tout simplement à l’intérieur du 
programme Basic. 


Exemples : 
Si l’on a: 


199 A$-B$+C$ 


Lorsque cette ligne sera exécutée, la chaîne correspondant à A$ 
sera stockée en haut de la mémoire. Par contre, si l’on a: 


299 A$=-"123456789 


la chaîne correspondant à A$ est la suite de caractères 123456789, elle 
existe à l’intérieur du programme, il est inutile d’aller la recopier en haut 
de la mémoire. 


— Après les variables simples, on trouve les tableaux. L’adresse 
de début de cette zone est stockée en 9E-9F. Pour la lire, exécutez 
PRINT HEXS$(DEEK(#9E)). On peut aussi considérer que cette adresse 
est celle de la fin des variables simples, car les zones correspondant aux 
variables simples et aux tableaux sont contiguës. 


* Tableau réel 


p1 P2 
Valeur max +1 du 
dernier indice 
Valeur max +1 de 
l'avant-dernier indice 
Valeur max +1 du 
premier indice 
1" élément 
, 2° élément 


dernier élément 


On trouve d’abord les deux premiers caractères du nom du tableau 
P1 et P2, en code ASCII positif. Ensuite on trouve sur deux octets, la 
taille du tableau, c’est-à-dire le nombre total d’octets utilisés pour stoc- 
ker le tableau. On trouve d’abord l’octet de poids faible, puis l’octet de 
poids fort de ce nombre. Sur un octet, on trouve ensuite le nombre de 
dimensions, c’est-à-dire le nombre d’indices du tableau. On trouve 





Taille du tableau nb. dimensions 
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ensuite pour chaque indice, en partant du dernier jusqu’au premier, la 
valeur maximale plus un de l’indice. Chacun de ces nombres est codé sur 
deux octets, l’octet de poids fort étant le premier. Les éléments du 
tableau, les réels eux-mêmes sont ensuite rangés en faisant d’abord varier 
l’indice le plus à gauche. 


Exemple : 


DIM AB(1,2) 


définit un tableau à six éléments et deux dimensions, qui est stocké sous 
la forme: 


Tous ces nombres 
sont donnés en 
hexadécimal. 





— 41 et 42 sont les codes ASCII des lettres A et B (65 et 66 en 
base 19). 


— 9927 est la taille du tableau (39 en base 19). 







— (3 est la valeur maximale plus un du deuxième indice. 


— (992 est la valeur maximale plus un du premier indice. 
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* Tableau entier 


La structure est analogue à celle d’un tableau réel, sauf qu’un 
élément occupe deux octets seulement contre 5 pour un réel. 


N1 N2 Taille du tableau 


Valeur max +1 du 
dernier indice 

Les deux premiers caractères du nom du 

tableau N1 et N2 sont en code ASCII négatif. 











Valeur max +1 de 
l'avant dernier indice Pour chaque élément, on stocke l'octet de poids 


É ! fort, puis celui de poids faible. 
! 


Valeur max +1 du 
premier indice 


1°" élément 





1 ' 
! 1 
! û 


dernier élément 


* Tableau chaîne 


La structure est aussi analogue à celle d’un tableau réel sauf qu’un 


élément occupe trois octets seulement. 
Taille du tableau 


Le premier caractère du nom du tableau, P1, 
est stocké en code ASCII positif, tandis que le 
second est en code ASCII négatif. 










Valeur max +1 du 
dernier indice 









Valeur max +1 de 
l'avant dernier indice 
Pour chaque chaîne on stocke sa longueur, l'octet 
de poids faible puis l'octet de poids fort de 


Vo mar To l'adresse de la chaîne. 
premier indice 
1°" élément 


dernier élément 
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L'adresse de la fin de la zone des tableaux est stockée en AŸ-A1. En 
exécutant PRINT HEXS$(DEEK(ÆA)), on peut lire cette adresse en 
hexadécimal. 


— Les chaînes sont-elles stockées en partant de HIMEM, qui est 
en A6-A7, puis en descendant. A2-A3 contient l’adresse de l’autre extré- 
mité de cette zone. 


— Entre la zone des tableaux et celle des chaines, on a une zone 
vide, inoccupée. Au fur et à mesure qu’un programme s’exécute, des 
variables, des tableaux et des chaînes sont créés, et cette zone vide rétré- 
cit par les deux bouts. 


Si donc vous désirez utiliser de la mémoire, soit pour y placer des 
sous-programmes assembleurs ou des données structurées par vous- 
même, sans risquer de détruire le Basic ou d’être détruit par lui, vous 
avec plusieurs possibilités. 


* Utiliser la zone 499 à 420. 


* Si cela ne suffit pas on peut, avant que le programme Basic ne crée une 
chaîne, exécuter une instruction HIMEM qui abaisse le contenu de A6- 
A7. Les octets situés au-dessus de ce plafond sont alors disponibles. 


* On peut aussi, avant que le programme n’ait créé une variable ou un 
tableau, exécuter un ordre DOKE en 9C pour augmenter l’adresse qui y 
est contenue, puis utiliser les octets situés entre la fin du programme 
Basic et cette nouvelle adresse. Ceci a un avantage: comme l’ordre 
CSAVE recopie sur cassette la zone dont l’adresse de début est en 9A- 
9B, dont l’adresse de fin est en 9C-9D, un seul ordre CSAVE permet de 
sauvegarder en même temps le programme Basic, et par exemple, des 
sous-programmes machine placés à sa suite. Mais attention, la médaille 
a un revers: Il devient impossible de modifier le programme Basic. En 
effet, lorsque vous modifiez un programme, vous lui ajoutez ou vous lui 
retirez des caractères. Aussi, l’'ORIC se doit de déplacer dans la mémoire 
une partie du programme Basic, depuis l’endroit où s’est produite la 
modification, jusqu’à sa fin. Or, il se trouve que chaque ligne de 
programme Basic en mémoire contient l’adresse de la ligne suivante. 
Dans tout le bloc qui a été déplacé, l’ORIC doit recalculer ces adresses. 
Et en faisant cela, il se plante lorsque 9C-9D ne contient pas véritable- 
ment l’adresse de fin du programme Basic. 
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g) La zone de stockage des caractères 


Pour chacun des deux jeux de caractères de l’'ORIC, une zone de 
1 Koctet est réservée, ces deux zones sont contiguës. Deux choses sont à 
remarquer : 


— Les caractères ne sont pas situés au même endroit en mode 
TEXT et en mode HIRES, à chaque fois que vous passez d’un mode à 
l’autre, l'ORIC les déplace. Aussi, il faut prendre garde à ceci lorsque 
l’on redéfinit un caractère : 


La définition du caractère normal de code ASCII ” A” débute à 
l’adresse 46980+8*xA en mode TEXT (ou LORES), tandis qu’elle se 
trouve en 38912+8*A en mode HIRES. 


— Chaque définition de caractère occupe 8 octets. Comme un 
code ASCII est compris entre @ et 127, on a donc à priori 
128x8—1924=—1 Koctet occupé par chacun des jeux de caractères. Mais 
en réalité, il n’y a pas de caractères correspondant aux codes Q à 31. Les 
32x8—256 premiers octets des deux zones sont donc inutilisés. 


h) La zone écran 


Elle est, bien entendu, plus grande en mode HIRES qu’en mode 
TEXT. En mode texte, on a 28 lignes de 40 caractères, comme un carac- 
tère occupe un octet mémoire, l’écran en mode TEXT utilise 
28x49=—1129 octets, des adresses 4890 à 49119. II est à noter que la 
première ligne de l’écran, celle où est située le mot CAPS correspond aux 
octets d'adresses 480 à 48039, et peut-être accédée grâce à PEEK, 
DEEK, POKE et DOKE. 


En mode HIRES, on a 249 lignes de 249 points plus trois lignes de 
texte de 49 caractères. Comme chaque octet correspond à six points, une 
ligne HIRES utilise 249/6—49 octets. 


L'écran HIRES utilise donc en tout (2%9+3)x49—8129 octets, qui 
sont situés aux adresses 49969 à 49979. 


i) La ROM #C000 à #FFFF 


On y trouve l’interpréteur Basic, appelé aussi plus simplement le 
Basic. Il est impossible d’écrire dans cette mémoire qui, par construc- 
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tion, ne peut être que lue. Par construction du microprocesseur 6592, on 
trouve en FFFE, FFEC et FFFA les adresses où il se branche en cas de 
irq (interrupt request), de reset et de nmi (non masquable interrupt) 
respectivement. Ainsi, CALL DEEK(#FFFA) produit le même effet que 
lorsque l’on enfonce la touche ”’reset” et CALL DEEK(ZFFFC) 
produit le même effet que lorsque l’on branche l’ORIC. 


2.2 COMMENT REDÉFINIR LES CARACTÈRES 


Chaque caractère, normal ou semi-graphique, est formé dans une 
matrice de 6 colonnes x 8 lignes. 


20 
34 
34 
62 
34 
34 





Chaque caractère est codé par 8 octets contigus en mémoire, il y a 
un octet par ligne de la matrice. Le caractère ” A” ci-dessus est codé par 
les 8 octets suivants: 


32168421 







O+ 9+8+0+0+0= 8 
0+16+9+4+9+9—-29 
32+ @+9+9+2+0—-34 
32+ 9+9+0+2+49—34 
32+16+8+4+2+9-62 
32+ @+9+9+2+9-34 
32+ 9+9+0+2+9—34 
O+ D+0+0+0+0= 9 
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c’est-à-dire qu’à chaque point du caractère correspond un ” 1”. Les 
deux bits de gauche de chaque octet sont inutilisés et valent 4. 


Les paquets de huit octets correspondant aux caractères sont 
rangés dans la mémoire en suivant l’ordre des codes ASCII des carac- 
tères. Par exemple, la zone de stockage des caractères standards débute 
en 46989 en mode TEXT. Le premier des huit octets codant la lettre 
” A”, dont le code ASCII est 65, est à l’adresse 46089+8+65—466090. On 
trouve donc: 


8 en 46699 
20 en 46691 
34 en 46692 
34 en 46693 
62 en 46694 
34 en 46695 
34 en 46606 

O0 en 46697 


Le premier des huit octets codant la lettre ” B”, de code ASCII 66, 
se trouve lui à l’adresse 46080+8+66—46608. 


Le programme: 


19 INPUT ”’Donner un caractère’; CAR$ 
29 TEXT :S—46980+8+ASC(CAR$) 

39 FOR I=S TO S+7 

49 PRINT I,PEEK(I) 

59 NEXT I 


vous permet d’afficher les octets définissant un caractère standard. 


Le programme: 


19 S—46989+8+ASC('’A"') :TEXT 
29 FOR I=S TO S+7 

39 POKE 1+8,PEEK(1) 

4ÿ NEXT I 


recopie la définition du caractère ” A” dans celle de ”B”. Après avoir 
exécuté ce programme, un ” À ” apparaîtra sur l’écran lorsque vous frap- 
perez la touche ” B”’, car le caractère de code ASCII 66 a maintenant la 
forme du ” A” au lieu du ”B”. 
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Comme exemple, nous allons transformer le caractère @ en nr. 









00000010 


32-116:8:472 1 


O+ O+9+9+2+9=— 2 
32+16+8+4+0+0-60 
0+16+9+4+9+9-209 
0+16+9+4+9+9-209 
0+16+9+4+9+0-20 
0+16+0+4+9+9—-209 
0+16+0+4+9+9-209 
O+ D+0+0+0+0— @ 










En exécutant le programme: 


19 TEXT :S—46989+ASC(' @ ‘’)*x8 
24 FOR I=S TO S+7:READ V':POKE I,V:NEXT 
39 DATA 2,69,20,20,20,20,20,0 


LE] LE 


on redéfinit @. Chaque fois que vous frapperez la touche ” @ ”, un ”r 
est affiché. 


Le petit insecte du jeu GLOUTON est un caractère redéfini: 


32168421 






32+ 0+0+9+9+1=-33 
0+16+0+9+2+9—-18 
O+ 9+8+4+9+9—12 
O+ 0+8+4+9+9—12 
O+ 9+8+4+0+9=—12 
O+ 9+8+4+9+0=12 
0+16+9+9+2+0=18 
32+0+0+0+0+0+1=33 








19 TEXT :S—46989+ASC(" @ ‘’)X8 
28 FOR I=S TO S+7:READ V:POKE I,V :NEXT 
39 DATA 33,18,12,12,12,12,18,33 


redéfinit le @ en glouton. 
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On peut, exactement de la même façon, redéfinir les caractères 
semi-graphiques. En mode TEXT, ces caractères sont stockés à partir de 
l'adresse 47194, le premier octet d’un caractère semi-graphique de code 
ASCII a se trouve à l’adresse 47194+8%a. 


Si vous désirez redéfinir un caractère tout en étant en mode 
HIRES, il faut utiliser l’adresse 38912 au lieu de 46980 pour les carac- 
tères standards, et 39936 au lieu de 47194 pour les caractères semi- 
graphiques. En effet, l'ORIC déplace dans sa mémoire les définitions des 
deux jeux de caractère à chaque fois que l’on passe d’un mode 
graphique à l’autre (TEXT et HIRES). 


Pour retrouver le jeu de caractères normal, vous pouvez enfoncer la 
touche reset, ou exécuter CALL DEEK(#FFFA), qui a la même action 


que reset. Vous pouvez aussi exécuter CALL #F89B qui a le seul effet 
de recharger les caractères initiaux. 


Pour terminer, voici un programme qui vous permettra de redéfinir 
n'importe quel caractère. 


10 REM KEDEFINITION DES CARACTERESXXX 
200: 

30 TEXT: CLS: FAPFER ZsINE O: PRINT: PRINT 
46 PKRINT'Donnez le code ASCII "s 
SONPRINTMCRD=1 27): 

60 INFUT CQD%X 

70 IF CODXESE OR CODX+1#7 THEN 40 

80 FRINT'Quel jeu "3 

90 PRINT" (Os:normal,i:graphique) ": 
100 INFUT JEUX 

110 IF JEUXEO OK JEUX+1 THEN 80 
120 ADe46080+1024XIEUX+8XCODX 
130% 

LAON REMMODE DYEMRLOIS=S SSSR 
150 CLSsFRINT 

160 FRINT'Dessinez le caractere ": 

179 FRINT'dans La grille’ 

180 PFRINT:FRINT'"'Four marquer un pointes" 
190 FRINT'"'-On deplace le curseur" 

200 FRINT'" avec les fleches” 

210 FRINT'-On frappe X" 
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80 


220 
230 
240 
230 
260 
270 
280 
290 
500 
310 
#20 


350 


40 
ES 
360 
570 
580 
390 
400 
410 
420 
#30 
440 
450 
460 
470 
480 
490 
500 
310 
20 
HEO 
40 
He) 
60 
20 
360 
7€ 
600 
610 
620 


FRINT 

FRINT'Four effacer un point:" 
FRINT'"'-On amene 1e curseur" 
PRINT" sur le point" 

FRINT'-On frappe la barre" 

FRINT 

FRINT'Lorsque le dessin est fini’ 
PRINT'frappez la touche ESC" 


RÉMADESS INR AMGRILÉESSSSSRSSSSSS 
FOR C=15 TO 22:PFLOT C, 16, '"K":NEXT 
FOR L=17 TO 24:PFLOT 15,L, "x" 

FLOT 224 LS EAU NEXT. 

FOR C=isS TO 22:PLOT C,25, "X'":NEXT 


REM FLACE CURSEUR DANS GRILLE---- 
FPRINT:FRINT:FOR Izi TO 17 

FRINT CHR#&(9): 

NEXT:X=i: Ye 


REM DESSIN DU CARACTERE -- 
GET ÀS:IIF AS=CHR#S (27) THEN 540 

IF A$="X"ANDX<7THEN XeX+1: GOTOSE0 
IF ÀA$=" "ANDXE7THEN X=X+1:GOTOSE0 
A=ASC(AHSI:IF À<S OR ÂAr11 THEN 420 
IF 4=68 AND X5:1 THEN XeX-1:GOTOS20 
IF À=9 AND X<é6 THEN X=X+1:GOTOS20 
IF A=IOAND Y£6 THEN Y=Y+1:GOTOSE20 
IF ASIIAND Yi THEN YeY-1:GOTOSE0 
GQOTO 420 

FRINT A$::GOTO 420 


REM RANGE CETTE DEFINITION DANS T 
DIM T(7): PAPER 1 

FOR I=0O TO 7 

FOR Csié TO Zi 

IF SCRN(CS 17+T) 2 ASC C"X") THEN6OO 
MÉTIETOT42S (21-06) 

NEXT € 

NEXT I: PAPER 2:CLS 


450 REM KANGE EN MEMOIRE ORIC---—-—-—-— 
840 FRINT:PARINT 

650 FOR I=0 TO 7 

660 FFE AD+I,T(I) 
ODAOMPRINTRIFOREMESADET M SMERTE ET") 

880 NEXT I 

690 PRINT:FRINT'"On obtient:'": 

700 FRINT CHK&#(E7) ; CHARS (72+JEUS) 

710 FRINT CHK#&(COD%) 

720 

750 REM ENCORE Po eo von 
740 PRINT:FRINT 

750 FRINT'Encore (Q/N) M": :GET ÀA$& 

760 IF A$="0" THEN KUN 

770 IF A$="N" THEN END 

780 FING:GOTG 750 


2.3 TRUCS ET FICELLES DES MODES TEXT ET LORES 


En mode TEXT ou LORES, l'écran est divisé en 28 lignes de 49 
caractères chacune. À chacun de ces 49ÿx28—1129 caractères corres- 
pond un octet bien particulier de la mémoire de l’'ORIC. Par exemple, 
le premier caractère de la première ligne correspond à l’octet 4809 
(#BB380 en hexadécimal). Pour faire apparaître un caractère sur l’écran, 
l'ORIC place son code ASCII dans l’octet correspondant. Vous pouvez 
faire de même avec la fonction POKE. Par exemple, pour placer la lettre 
” A”, dont le code ASCII est 65, dans le premier caractère de la pre- 
mière ligne, exécutez : 


POKE 48999,65 


Si l’on numérote les lignes de Q à 27, la ligne @ étant la ligne supé- 
rieure, et les caractères de @ à 39, l’adresse de l’octet correspondant au 
caractère X de la ligne Y vaut 489+49+Y +X. 


De ce qui précède, on peut déduire un premier ”’ truc”, qui permet 
d'écrire sur la première ligne de l’écran, celle où se trouve le mot CAPS. 
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19 A$—'’Et voila le travail! !”’ 

29 GOSUB 199 

39 END 

49 : 

199 REM ECRITURE A$ SUR LA 1 LIGNE 
119 FOR 1-1 TO LEN(AS) 

129 POKE 47999+1,ASC(MID$(A$,1,1)) 
139 NEXT I 

149 RETURN 


Comme on l’a dit, à chaque position de l’écran correspond un octet 
en mémoire, pour faire apparaître un caractère à un endroit déterminé, 
on place son code ASCII dans l’octet correspondant. Or un code ASCII 
est un nombre compris entre @ et 127, qui s’exprime sur 7 bits. Comme 
un octet contient 8 bits, il reste donc a priori un bit inutilisé, le bit de 
poids fort. En fait, ce bit est utilisé lorsque l’on affiche le caractère en 
vidéo inverse. 


JREGL Ib: 4 3027150) 


|| code ASCII Un octet de la zone écran 


9: Le caractère est normalement affiché 
1: Le caractère est affiché en vidéo inverse 


Pour faire passer à ” 1” le bit de poids fort, il suffit d’ajouter 14000 
(binaire) au code ASCII, ce qui vaut encore 128 en base dix ou 89 en 
hexadécimal. 


Ceci va nous permettre d’écrire en vidéo inverse, tout d’abord en 
reprenant le petit programme précédent : 


19 A$—'’Et voila le travail” 

29 GOSUB 199 

39 END 

49 : 

199 REM ECRITURE A$ SUR LA 1 LIGNE 
119 FOR 1-1 TO LEN(A$) 

129 POKE 47999+1,ASC(MID$(A$,1,1))+128 
139 NEXT | 

149 RETURN 
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On a simplement ajouté +128 à la ligne 124. 


On peut aussi utiliser la fonction PLOT pour écrire en vidéo 
inverse, comme dans l’exemple suivant : 


19 TEXT:CLS 

29 X-9:Y=-19:A$—""Ceci est un message” 
39 GOSUB 199 

49 X=-14:Y=-13:A$—"'ecrit en” 

59 GOSUB 199 

69 X=12:Y=-16 :A$="" video inverse” 

79 GOSUB 199 

“ WAIT 5ÿ:GOTO 1ÿ 

9ÿ : 

199 REM PLOT EN VIDEO INVERSE 

119 MUSIC 1,4,1,9 

129 FOR 1-1 TO LEN(A$) 

139 PLOT X+1+1,Y,ASC(MIDS$(A$, 1, 1))+128 
149 PLAY 1,9,9,25 :WAIT 15 

159 NEXT I 

169 PING :WAIT 5ÿ 

179 RETURN 


L'affichage se fait à la ligne 139. MIDS$(A$, I, 1) donne le caractère 
I de la chaîne A$. ASC(MIDS$(AS$, I, 1)) donne le code ASCII de ce 
caractère, auquel on ajoute 128 pour obtenir un effet de vidéo inverse. 


Les codes ASCII Ÿ à 31 ont un rôle un peu particulier. Lorsqu’on 
les place dans un octet de la zone écran, aucun caractère n’apparaît. En 
revanche, la ligne où ils se trouvent change d’aspect, à partir de l’endroit 
ils se trouvent. Ils permettent de choisir la couleur de l’encre, de l’écran, 
de sélectionner le jeu de caractère, la taille des caractères et de faire 
clignoter des caractères. Comme ils modifient l’aspect d’une ligne où ils 
se trouvent, on les appelle parfois attributs”. L’annexe 3.2 donne la 
liste de ces caractères. 


Par exemple, 18 donne à l’écran la couleur verte. Tapez POKE 
48029, 18. 


L’octet 48020 correspond au milieu de la première ligne de l’écran 
qui maintenant est verte. Si vous tapez maintenant: 


POKE 48929,17 . 
on obtient du rouge. Tapez: 
POKE 48929,12 et le mot CAPS se met à clignoter. 
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Ces codes peuvent aussi être employés avec PLOT, comme le 
montre l’exemple suivant : 


19 TEXT :PAPER SZ:INK 1:CLS 

28 PLOT 11,1,CHR$(14)+’’ DEMONSTRATION ’’ 
7 PLOT 11,2,CHR$(14)+' DEMONSTRATION 
4ÿ : 

59 PLOT 15,12,CHR$(1)+'’ ROUGE” 

69 PLOT 15,13, CHR$(2)+'’ VERT’ 

79 PLOT 15,14,CHR$(3)+'’JAUNE”’ 

89 PLOT 15,15(,CHR$(4)+'’ BLEU ”’ 

98 PLOT 15,16,CHR$(5)+'’ MAUVE" 
199 PLOT 15,17 ,CHRS$(6)+'’ CYAN 
Le PLOT 15,18,CHR$(7)+'’ BLANC’ 
129 : 
139 FOR 1-1 TO 7 :WAIT 289 :PING 

149 FOR J-11 TO 19 
159 PLOT 14,],1+16 :PLOT 23,]J,16 
169 NEXT } 
179 NEXT I 


Le code 14 donne des lettres clignotantes double hauteur, les codes 
1 à 7 fixent la couleur de l’encre. A la ligne 150, 1+16 varie de 17 à 23 et 
fixe la couleur de l’écran. 


Pour afficher ces codes @ à 31 avec un ordre PRINT, il faut 
exécuter PRINT CHR$(27); CHRS$(code+64), voir l’annexe 3.2. 


En effet, si vous exécutez PRINT CHRS(code) et que le code est 
compris entre Ÿ et 31, l'ORIC n’affiche pas ce code. A la place, il exécute 
un sous-programme de sa mémoire ROM. Par exemple, si vous exécutez 
PRINT CHRS$(12), l'ORIC ne placera pas ce code dans la mémoire- 
écran, ne l’affichera pas, mais exécutera un sous-programme qui efface 
l'écran, en remplissant la mémoire-écran de codes 32 (blanc). L’effet de 
PRINT CHRS(code) pour les valeurs @ à 31 est décrit au début de 
l’annexe 3.1. 


Voici un petit programme démontrant quelques-unes des possibili- 
tés de ces codes avec PRINT, que l’on appelle caractères de contrôle, car 
ils permettent en majorité de contrôler le curseur. 


il PRINT CHR$(12) :REM EFFACE ECRAN 
29 : 
39 PRINT SPC(14);'' COUCOU" 


49 FOR 1-1 TO 26 
59 PRINT CHR$(11); :REM VERS LE HAUT 
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69 WAIT 2ÿ 


74 NEXT | 


84 : 


99 FOR 1-1 TO 59 
198 PRINT CHR$(1) : :REM VERS LE BAS 
114 WAIT 29 


124 NEXT 


134 : 


149 PRINT CHR$(39) ; :REM RETOUR 


154 : 


169 FOR 1-26 TO 2 STEP -2 


179 FOR J-1 TO I':PRINT CHR$(9); :NEXT 
189 FOR J-1 TO I :PRINT CHR$(19) ; :NEXT 
199 FOR J-1 TO 1-1:PRINT CHR$(8); :NEXT 
299 FOR J-1 TO 1-1:PRINT CHR$(11); :NEXT 
219 NEXT 

228 : 


239 GOTO 14ÿ 


Les codes 8, 9, 19 et 11 sont les codes ASCII des touches flèches à 
gauche, à droite, en bas et en haut. On peut grâce à eux déplacer le 
curseur, à condition de ne pas oublier le ” ;” à la fin de l’ordre PRINT. 
Ce ”;” empêche PRINT d’envoyer le curseur au début de la ligne 


suivante. 


Pour terminer, voici quelques adresses qui vous assureront la 
maîtrise totale de l’écran de l’ORIC. 


18ou #12 : | 

19ou #13 :  adresse-mémoire de l'octet où se trouve le curseur. 
616ou#268 : numéro de la ligne où est le curseur (Q à 27). 
617 ou#269 : marge gauche pour l'ordre PRINT suivant (9 à 39). 
618 ou #26A :  bascules CTRL-D, CTRL-], CTRL-[, CTRL-F, CTRL-S et 

CTRL-Q 

619 ou #26B : code pour PAPER (16 à 23). 
629 ou #26C : code pour INK (9 à 7). 
621ou#26D : adresse du début de l'écran (#BB80 en TEXT et 4#BF49 
622 ou#26E : enHIRES. 
623 ou#26F : nombre de lignes de l'écran (27 en TEXT, 3 en HIRES). 


Ces adresses sont à séparer en quatre groupes : 


— Celles qui servent au curseur: 18, 19, 616 et 617. 
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Le curseur est en réalité un caractère qui est affiché normalement, 
puis en vidéo inverse, puis normalement, à nouveau en vidéo inverse, 
etc. L’adresse-mémoire de l’octet correspondant à ce caractère est 
stockée en 18-19. 


En 616 est stocké le numéro de la ligne courante, où sera affichée le 
prochain caractère. Normalement, ceci correspond à la ligne où se 
trouve le curseur. En 617 est stockée la marge gauche pour PRINT: 
avant d’exécuter tout ordre PRINT, l’ORIC ajoute ce nombre à l’adresse 
du curseur. 


Cette adresse peut servir à remplacer la fonction TAB. Tapez: 


POKE 617,19:PRINT ‘COUCOU 


Nous allons maintenant utiliser les adresses 18, 19 et 616 pour 
simuler une instruction PRINT X, Y, A$. Cette instruction a le même 
effet que PLOT X, Y, A$, mais déplace le curseur, ce que PLOT ne fait 
pas. Considérons le programme suivant: 


10 PRINT CHK$ (30) 3: INPUT'X,Y "sx. Y 

20 INFUT'CHAINE ":A4# 

30 GOSUR 100 

40 GET A$:IF A#::"A" THEN 10 

30 END 

(+10 

100 REM PRINT AT XV Ah — 
110 ACUR=DEEF (18) 

115 DOFE #400,#607€: CALL #400 

120 CARSFEER CACUR) 

130 IF CARSY127 THEN FOFE ACUR,CAR-158 
140 ACUR&DEER (621) +YXx404+X 

1890 FOFE 616, Y 

160 DOFE 18, ACUR 

165 DOFE #400,#H#6058:CALL #400 

170 FRINT 4% 

190 RETURN 


Nous allons expliquer le fonctionnement du sous-programme 14. 
Comme on l’a dit, le curseur est en fait un caractère que l’ORIC fait 
passer en vidéo inverse, en vidéo normale, en vidéo inverse, etc... Comme 
ce sous-programme va déplacer le curseur, pour le mettre à la position 
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X, YŸ, la première chose à faire est d’effacer le curseur de l’endroit où il se 
trouve, ce qui est fait par les lignes 119 à 134. 


119 On place dans ACUR l'adresse-mémoire de l'octet sur lequel se 
trouve le curseur. 


115 Nous laissons de côté cette ligne pour l'instant. 
129 On place dans CAR la valeur de l'octet sur lequel est le curseur. 


139 Si CAR est supérieur à 127, il est affiché en vidéo inverse et on le fait 
passer en vidéo normale. 


De 149 à 169, on place le curseur en X, Y. 


149 DEEK(621) est l'adresse du début de l'écran. Comme une ligne 
comporte 4@ caractères, ACUR contient maintenant l'adresse du 
nouvel octet sur lequel on désire placer le curseur. 


159 On place en 616 le numéro Y de la ligne. 
169 On place en 18 la nouvelle adresse du curseur. 


179 On imprime la chaîne Af. 


Nous allons maintenant nous pencher sur les lignes 115 et 165. 
Pour faire clignoter le curseur, l'ORIC agit ainsi: A l’intérieur de 
l'ORIC se trouve une sorte de réveil-matin, appelé TIMER, qui sonne 
toutes les demi-secondes environ. À chaque fois que le réveil sonne, 
l'ORIC laisse tomber purement et simplement ce qu’il était en train de 
faire, exécuter votre programme Basic ou attendre que vous frappiez 
quelque chose, pour se précipiter en 18-19. Il lit l’adresse qui se trouve en 
18-19, et va à cette adresse. Là, il trouve l’octet sur lequel est le curseur. 
Si cet octet est supérieur à 128, il donne un caractère en vidéo inverse, 
alors l’ORIC retranche 128 à cet octet pour obtenir le même caractère, 
mais en vidéo normale. Au contraire, si l’octet est inférieur à 128, 
l'ORIC lui ajoute 128 pour obtenir l’effet de vidéo inverse. Ceci fait, 
lORIC retourne au travail qu’il avait abandonné. Et cela recommence 
toutes les demi-secondes, l’ORIC fait passer en vidéo inverse, puis 
normale, puis inverse, etc. l’octet dont l’adresse est stockée en 18-19. 


Maintenant, supposons que le réveil sonne pendant que l’'ORIC 
exécute la ligne 149 ou 154. A la ligne 139, on avait veillé à faire passer 
le caractère sur lequel est le curseur en vidéo normale. Puis, par exemple, 
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vers le milieu de la ligne 149, le réveil retentit. Aussitôt, l’'ORIC laisse 
tomber mon programme et va faire passer en vidéo inverse ce caractère, 
dont l’adresse est en 18-19. Puis il revient à mon programme, qui à la 
ligne 169 modifie le contenu de 18-19. Lors de la prochaine sonnerie, 
PORIC ira donc modifier l’octet dont l’adresse est la nouvelle valeur est 
en 18-19. Ainsi, le caractère dont l’adresse était l’ancienne valeur stockée 
en 18-19 se trouve toujours, le pauvre, en vidéo inverse. On a donc sur 
l'écran un caractère qui reste en vidéo inverse, du plus mauvais effet. 
Pour parer à cela, c’est très simple, il suffit de rendre l’ORIC sourd à la 
sonnerie, ce qui est fait en 115. En effet, on place en #400 un #78, qui 
est le code d’une instruction SEI et en #491 on met #60, RTS. Puis on 
exécute ce sous-programme machine de deux instructions. C’est 
l'instruction SEI qui rend sourd l’ORIC. Puis en 165, on lui rend l’ouie, 
en exécutant le sous-programme constitué de #58 et #60, soit CLI et 
RTS. L’instruction CLI à l’effet inverse de SEI. 


Si vous voulez mieux voir ce qui se passe, ajoutez la ligne: 


117 FOR 1-1 TO 4gÿ8:NEXT I 


Puis tapez: 
CLS :RUN return L’'ORIC vous demande: 
X,Y? Tapez: 
19,14 return L'ORIC demande alors: 
CHAINE? Tapez : 


ABCD return 


Vous observez alors que pendant que la ligne 117 s’exécute, le 
curseur se trouve au début de la troisième ligne, et qu’il ne clignote plus. 
En effet, la ligne 115 a masqué les interruptions, a rendu sourd l’ORIC, 
qui ne va plus faire changer d’état son curseur. 


— Nous passons maintenant au second groupe, les adresses 621, 
622 et 623 qui servent à définir la taille de l’écran pour PRINT. On 
trouve en 621-622 l’adresse du début de l’écran, qui vaut normalement 
#BB80 en mode TEXT et #BF49 en mode HIRES. En 623, on a le 
nombre de lignes de l’écran, normalement 27 en mode TEXT et 3 en 
mode HIRES. 


88 


Les ordres PRINT, CLS utilisent la zone dont l’adresse de début 
vaut DEEK(621)+49, et comportant PEEK(623) lignes de 49 caractères. 
En modifiant ces valeurs, vous pouvez modifier la partie utilisable de 
l'écran. Tapez: 


CLS :POKE 623,8 return 


Ceci restreint à huit lignes la zone utilisable de l’écran. Déplacez le 
curseur avec flèche en bas: il ne peut dépasser la 8° ligne. 


Tapez maintenant : 


DOKE 621;#BB89-49:POKE 623,28 return 


PRINT peut maintenant écrire depuis #BB89 sur 28 lignes. C’est- 
à-dire que vous pouvez maintenant utiliser la ligne du haut de l’écran, 
celle où se trouve CAPS. Tapez et exécutez : 


19 DOKE 621,#BB89-49 :POKE 623,28 

28 CLS 

39 PRINT SPC(12):’’ZONE PROTEGEE”’ 

49 FOR 1- #BB89+49+5 TO # BB89+49%5 +39 
5g POKE I,ASC(’’=") 

68 NEXT I 

74 : 

89 DOKE 621, # BB89+4ÿ%x5 :POKE 626,22 


Vous pouvez déplacer le curseur, exécuter CLS ou CTRL-L sans 
atteindre les deux lignes supérieures de l’écran. La ligne 19 définit un 
écran de 28 lignes, tandis que 89 définit un écran de 22 lignes. 


— Le troisième groupe d’adresses est formé de 619 et 629. On y 
trouve respectivement les attributs utilisés pour définir la couleur de 
l'écran et de l’encre lorsque CLS ou CTRL-L est exécuté. Ces deux 
commandes agissent comme suit : Pour chaque ligne, on place dans le 
premier octet la valeur qui est en 619, on place dans le second octet la 
valeur qui est en 629, et on met un code 32 (blanc) dans les 38 octets 
restants de la ligne. 


Reprenons le petit programme précédent, on modifie la ligne 29 et 
on ajoute la ligne 99 pour obtenir : 
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19 DOKE 621,#BB89-—49 :POKE 623,28 

29 POKE 619,16 :POKE 629,7 :CLS 

39 PRINT SPC(12);'’ZONE PROTEGEE”’ 

49 FOR I1=-#BB89+49+5 TO # BB89+49+5+39 
59 POKE I,ASC('’="") 

68 NEXT I 

74 : 

89 POKE 621,#BB89+49+5 :POKE 623,22 

99 POKE 619,18 :POKE 628,8 :CLS 


En 619, on doit placer un attribut qui détermine la couleur de 
l'écran, c’est-à-dire un nombre de 16 à 23, tandis qu’en 629 on met un 
attribut qui détermine la couleur de l’encre, un nombre compris entre et 
7. A la ligne 29, on choisit un écran noir (16 en 619) ‘avec de l’encre 
blanche (7 en 629). A la ligne 99, on fixe un écran vert (18 en 619) et de 
l'encre noire (9 en 629). 


— Pour terminer, le quatrième groupe qui ne comporte qu’une 
adresse 618, les 7 bits de poids faible de cet octet ont chacun une signifi- 
cation particulière, que nous donnons dans le tableau ci-dessous. 


Numéro du bit EE 


Poids du bit 


action du : Affichage She clavier 


bit à @ simple sonore : d'affichage | pas affiché 


colonnes 


Action du Affichage acge clavier ? affichage curseur 
bit à 1 double élonnes été détecté [silencieux j affiché 
Touche faisant CTRL-Z 

changer d'état| aucune| CTRL-D CTRL-| 5 CTRL-F | CTRL-P CTRL-S CTRL-Q 
le bit ESC 

Caractère de sé 
contrôle CHRS(26) 

een aucun | CHRS$(4) | CHRS$(29) CHR$(27) CHR$(6) |CHR$(16)| CHRS(19) | CHRSIMMI 
d'état le bit 
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Lorsque l’ORIC est branché, ou lorsque l’on enfonce reset”, 
l'ORIC place en 618 la valeur: 


OS ES ANS EN RMIES SRE 


Ce qui vaut 9+9+9+9+9+2+1—3. Ceci correspond à: 
* Affichage simple 

* Affichage sur 38 colonnes 

* La touche précédente n’était pas ESC 

* Le clavier est sonore 

* Les caractères sont affichés 

* Le curseur est affiché. 


Les touches CTRL et les caractères de contrôle font changer d’état 
lun de ces bits, s’il était à @, on obtient 1, et réciproquement. En 
exécutant un ordre POKE à l’adresse 618, vous pouvez initialiser tous 
ces bits aux valeurs de votre choix. Par exemple, après avoir frappé un 
nombre quelconque de touches de contrôle, POKE 618,3 vous ramène 
bien dans l’état auquel vous êtes habitué, celui de la mise en marche. 


Si vous désirez maintenant être en affichage simple, sur 4ÿ 
colonnes, avec un clavier silencieux et que le curseur ne soit pas affiché, 
il faut placer en 618 la valeur: 


poids 


128 64 32 16 8 ä 2 1 
RSR ENIENIEN en 


Affichage pas ESC | Affichage | 
simple | 
Affichage clavier curseur 
49 colonnes silencieux pas affiché 


Ce qui vaut 9+9+32+9+8+%+2+—42. On exécute donc: 


POKE 618,42 
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2.4 TRUCS ET FICELLES DU MODE HIRES 


L'écran HIRES est divisé en 293 lignes de 49 caractères chacune, 
200 lignes de graphique suivies de trois lignes de texte. Exactement 
comme en mode texte, à chacun de ces 293 x49—8129 caractères corres- 
pond un octet de la mémoire de l’'ORIC, de 49969 à 49979 (ÆAW0 à 
#BFB7). 


Si l’on numérote les lignes graphiques de @ à 199, la ligne @ étant la 
ligne supérieure, et les caractères de Ÿ à 39, l’adresse de l’octet corres- 
pondant au caractère X de la ligne Y vaut 49960+4ÿ+Y+X. 


Comme en mode TEXT, une ligne est constituée de 49 octets, et le 
bit de poids fort de chacun de ses octets sélectionne le mode vidéo 
normale ou inverse. 


TOC DO AE Er 20 1 (0) 


il code compris entre @ et 127 


9: Vidéo normale 


1: Vidéo inverse 


Les 7 bits restants peuvent donner un nombre compris entre Ÿ et 
127. Comme en mode TEXT, les valeurs @ à 31 sont des attributs vidéos 
(voir annexe 3.2). Par contre, les valeurs 32 à 127 ne sont pas des codes 
ASCII de caractères. A la place, chacun des six bits 5 à Ÿ correspond à 
un point de l’écran. Ainsi, tout octet compris entre 32 et 127 donne six 
points. Comme on a 49 caractères par ligne, on peut donc avoir 
6x49—24ÿ points par ligne. Chaque bit à zéro donne un point éteint, 
tandis qu’un bit à un donne un point allumé, visible. 


Ainsi, l’octet : 
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128 64 32 1 1 


6 8 4 2 
9 1 6 0 9 6 0 9 
(De LE 


Le bit à 1 a un poids de 64, il assure donc que l'octet est supérieur à 31, 
que ce n'est pas un attribut vidéo, et que les bits 5 à @ représentent donc 
chacun un point. 


9+64+0+0+0+9+9+0—64 


@: On aura donc des points en vidéo normale. 


correspond-il à six points éteints. Lorsque vous exécutez HIRES, 
lORIC place cette valeur, soit 64, dans les 299x49 octets qui consti- 
tuent la zone graphique, on a donc un écran dont tous les points sont 
éteints. Prenons un second exemple, avec l’octet : 


128 64 32 16 8 4 2 1 
DATE ON TES DATI TION 
tit} 


CE 0+64+9+16+9+4+2+1—-87 


Assure que l'octet est supérieur à 32 


Y 
On aura six points en vidéo normale. 


Cet octet vaut 87 et donne un point éteint, un point allumé, un 
point éteint et trois points allumés. Tapez: 


HIRES return Puis : 
POKE #A999,87 return 


#A000 est l’adresse du premier octet de la zone HIRES, on voit 
donc apparaître les six points correspondant à la valeur 87 dans le coin 
supérieur gauche de l'écran. Tapez maintenant: 


FOR 1- #A999 TO # A927:POKE 1,87:NEXT return 
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Ceci place la valeur 87 dans les 49 premiers octets de la zone écran 
HIRES, qui correspondent à la première ligne de l'écran. Tapez 
maintenant : 


FOR I-# AŸ99 TO # BF3F:POKE 1,87 :NEXT return 


Ceci remplit les 299 lignes graphiques avec ce nombre 87. 


Comme il n’est pas possible de placer dans un même octet à la fois 
une valeur inférieure à 32 et une valeur supérieure à 32, à chaque fois 
que vous placez un attribut vidéo dans la mémoire HIRES, les six points 
correspondant à cet octet seront toujours éteints, comme l’illustre 
l'exemple suivant. Tapez: 


HIRES return 
FOR I-#AFAQ TO # AFC7 :POKE 1,127 :NEXT return 


Ce qui trace une ligne au milieu de l’écran, 127 correspond à 7 bits 
à ” 1”. Nous allons maintenant placer au milieu de cette ligne l’attribut 
”encre rouge” qui a pour code 1. Tapez: 


POKE #AFB4,1 return 
La fin de la ligne est bien rouge, et six points sont éteints. Tapez : 
POKE # AFB4,127 return 


Les six points sont revenus, mais la couleur rouge a disparu. 


Lorsque l’on désire remplir une zone rectangulaire de la mémoire 
écran HIRES avec un code, l’ordre FILL est très pratique. Les para- 
mètres de cet ordre sont la hauteur du rectangle en nombre de lignes, la 
largeur du rectangle en nombre d’octets et le code à placer dans toute 
cette zone. 


FILL nombre de lignes, nombre d'octets, code. 


Avant d'employer FILL, il faut préciser à l’'ORIC les coordonnées 
du coin supérieur gauche du rectangle, par exemple avec CURSET. 
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Exemples : 
Tapez: 


HIRES return 
CURSET 69,59,3:FILL 199,29,127 return 


On place sur 199 lignes x 29 octets le code 127 qui correspond à six 
points allumés, on obtient donc un rectangle de 199x 129 points. Tapez : 


CURSET 54,59,3 :FILL 199,1,2 return 


On place devant chacune des lignes du rectangle un code 2, qui est 
l’attribut ”’encre verte”. Le rectangle est donc vert. Tapez maintenant : 


CURSET 129,59,3 :FILL 199,1,4 return 


Ceci place 4, qui est l’attribut ”’encre bleue ” au milieu du rectangle. 
Les points où sont les attributs sont éteints, tandis que les points à droite 
de ces attributs sont bleus. 


Comme le montre l’exemple précédent, l’utilisation des attributs 
vidéo ne permettent pas d’avoir sur une même ligne des points voisins de 
couleurs différentes. Cela est possible en utilisant la vidéo inverse. 
Tapez: | 


HIRES return 
CURSET 69,59,3 :FILL 199,7,127 return 


On obtient un rectangle blanc que nous allons colorier en vert en 
exécutant : 


CURSET 54,59,3 :FILL 190,1,2 return 

Tapez maintenant: 

CURSET 192,59,3 :FILL 199,7,127+128 return 

127+128-255 donne six points allumés en inverse vidéo. 


Comme l'inverse vidéo du vert est le mauve, on obtient un rectangle 
mauve contigu au rectangle vert précédent. Tapez: 


CURSET 144,59,3:FILL 199,7,127 return 


On obtient un nouveau rectangle vert contigu au rectangle mauve. 


95 


2.5 FABRIQUER DES LIGNES 
DE PROGRAMME PAR PROGRAMME 


Lorsque l’on tape de longues listes de DATA, ou de grands textes 
après des ordres PRINT, il devient rapidement fastidieux de devoir à 
chaque ligne taper un numéro, le mot DATA ou PRINT. Il est préfé- 
rable de ne taper que les données, et de laisser le soin à un programme 
d’ajouter les détails que sont le numéro de la ligne ou le mot DATA. 
Cela est possible lorsque l’on sait que: 


— Chaque ligne de programme est stockée en mémoire selon ie 
format suivant : 


a 
adresse du début numéro de la instructions marque de 


de la ligne suivante ligne fin de ligne 


On a d’abord sur deux octets l’adresse-mémoire de la ligne 
suivante. puis encore sur deux octets, le numéro de la ligne. Ensuite les 
caractères qui constituent les instructions, terminés par un octet nul qui 
indique la fin de la ligne. 


Les instructions sont elles-mêmes stockées de façon simple: tous 
les mots réservés, comme Z AP, FOR, PRINT, etc. sont codés par un 
octet supérieur à 128. Tous les autres caractères (noms de variables, 
constantes numériques et chaînes de caractères) sont codés par leur code 
ASCII, compris entre 32 et 125. 


— Les lignes sont classées en mémoire selon l’ordre de leurs 
numéros. Il n’y a pas de place perdue, de trou entre deux lignes succes- 
sives. En #9A-#98B se trouve l’adresse du premier octet du programme, 
cette adresse vaut normalement #591. Juste après le @ terminant la 
dernière ligne du programme, on trouve deux autres octets nuls, on a 
donc en tout trois octets nuls. En #9C-#9D se trouve l’adresse de l’octet 
qui suit immédiatement ces trois octets nuls. 
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DORE NC EC RES Es UE EE AE 2 


Es qe — 
1" ligne 2° ligne dernière ligne 
#9A-#9B contient l'adresse contient l'adresse #9C-#9D 
du 1 octet du de l'octet suivant 
programme, #591 les trois octets nuls. 


normalement 


Supposons que vous désiriez trouver l’adresse de début d’une ligne 
de programme, par exemple la ligne 59. Comme l’adresse de début de 
programme est stockée en #9A-#9B et que chaque ligne débute par 
l'adresse de la ligne suivante suivie de numéro, il suffit de taper en mode 
immédiat. 

A=DEEK(# 9A) :N=599 return 


REPEAT : A=DEEK (A) :UNTIL DEEK(A+2)=N return 
PRINT A return 


Les deux points qui précèdent nous suffisent par écrire un 
programme qui fabrique des lignes de DATA: 


1 GOTO 1000 

10 REM CES RENM FIGURENT LE 

20 REM FROGRAMME AUIQUEL. 

30 REM ON DESIRE AJQUTER DES 

40 KEM ORDRES DATA. 

Ta Ne 

1000 DOKHE #90, DEEK (#90) 45000: CLEAR 
1010 A=DEEE (HK9C) -5000-2: Ne7O000 
1020 L$e"ts ZePRE ("M"): PRINT" 
1050 GET AS:IF AS=CHRS(1Z) THEN 1050 
1040 LéeL$+A$6: PRINT A$:;:GOTO 1070 
1050 IF L$="" THEN 1150 

1060 DOFE À, A+LEN(LS#)+6:DOHE A+Z,N 
1070 FOFE Â+4,145 

1080 FOR Ii TO LEN(LS#) 
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1090 POKHE Â+4+I, ASC (MID# (LS, I, 1)) 
1100 NEXT I 

1110 POHE A+S+LEN(L#), O0: A=A+LEN (LS) +6 
1120 FRINT:NEN+10:GOTO 1020 

1150 DOFE ASO:DOFE H9C, A+2: CLEAR 


Avant d’exécuter ce programme, vérifiez soigneusement que les 
lignes 1990 à 1139 sont bien correctes. A chaque fois que le programme 
affiche ” >”, tapez une ligne suivie de RETURN. Pour sortir du 
programme, tapez RETURN immédiatement après le ” >”. 


Exemples : 


RUN return 

> 1,2,3,4,5 return 
>6,7,8,9,18 return 
> return 

Ready 

LIST return 


L’ORIC a ajouté les deux lignes: 


2998 DATA 1,2,3,4,5 
2919 DATA 6,7,8,9,19 


Vous pouvez changer le numéro de la première ligne, défini par 
l'instruction N—2999 de la ligne 1919. On peut changer l’incrément des 
numéros de lignes, en modifiant l’instruction N=N+19 de la ligne 1129. 
Vous pouvez aussi ajouter la ligne: 


1935 1F A$—-CHR$(24) THEN PRINT” \ ”:GOTO 1928 


qui, en cas d’erreur, permet d’annuler la ligne en cours de frappe en utili- 
sant la touche CTRL-X. 


Le bloc 1999 à 1139 fonctionne de la façon suivante : Le nombre 
stocké en #9C-#9D est l’adresse de la fin du programme Basic mais 
aussi celle du début de la zone des variables simples. Pour que les lignes 
de DATA que le programme va ajouter à sa suite ne détruisent pas ses 
variables, on commencée donc, en 19, par repousser de 59% l’adresse 
contenue en #9C. On dispose donc maintenant de 599 octets entre la 
fin du programme et le début des variables. L'ordre CLEAR qui suit 
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remet à jour les adresses stockées en #9E-#9F et #AŸ-ÆA 1 (début et fin 
de la zone de stockage des tableaux). 


1919 On va placer dans A l'adresse de la première ligne que l'on va ajou- 
ter. On met dans N le numéro de cette première ligne. 


1029 L$ va contenir la ligne que vous allez taper. Ne pas oublier le ”’;" à la 
fin de la ligne. 


1930 On lit un caractère. Si c'est RETURN, on va en 1054. 


1949 On ajoute le caractère lu à la chaîne A$ et on l'affiche. Ne pas 
oublier le ‘’:"" de l'ordre PRINT. Puis on va relire un autre caractère. 


Lorsqu'un RETURN a été rencontré, on arrive en 1959. 


1654 Si la ligne est vide, on sort du programme, on va en 1130. 


1069 On place à l'adresse A, qui correspond au début de la ligne, 
l'adresse du début de la ligne suivante. Puis l'on place en A+2 le 
numéro de la ligne. 


1970 On place 145, qui est le code du mot réservé DATA. 


1089 à 1199 On place les codes ASCII des caractères que vous avez 
tapés. 


1119 On ajoute à la fin de la ligne un octet nul, puis l'on calcule l'adresse 
de début de la prochaine ligne. 


1129 On incrémente le numéro de la ligne, et l'on va lire une autre ligne 
en 1929. 


1139 Cette ligne est exécutée lorsque l'on sort. DOKE A, ajoute deux 
octets nuls à la suite de la dernière ligne, puis on met en #9C 
l'adresse de l'octet suivant. 


2.6. COMMENT ACCÉLÉRER 
UN PROGRAMME BASIC 


Dans tous les jeux d’action, il est souvent souhaitable d’accélérer 
au maximum les programmes. Voici donc quelques moyens d’accélérer 
l'exécution d’un programme Basic. Ces conseils sont valables pour la 
majorité des Basics, et donc en particulier pour celui de l'ORIC: 
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— Tout d’abord, et ceci est le plus important, remplacer toutes les 
constantes par des variables. 


Exemples : 
199 X-COS(9.9174532925%T) 
peut être remplacé par: 


19 CDR-O.#174532925 


198 X=-COS(CDR+T) 


Il est en effet beaucoup plus rapide de rechercher en mémoire la 
valeur d’une variable que de convertir une chaine de chiffres en un réel. 


— À chaque fois que l’on utilise une variable, celle-ci est cherchée 
en mémoire en partant de l’adresse stockée en #9C-#9D. Pour diminuer 
ce temps de recherche, on peut: 


* diminuer le nombre total des variables, en réutilisant au maxi- 
mum les mêmes noms. Par exemple, utiliser autant que possible la même 
variable pour toutes les boucles FOR … NEXT. 


* placer au début de la zone des variables celles qui sont utilisées le 
plus fréquemment, par exemple celles qui sont utilisées à l’intérieur des 
boucles. Pour cela, utiliser une fois ces variables au début du 
programme. Si vous ajoutez par exemple la ligne: 


1 1=D:J=1:K=1:L=I 


La variable I sera la prémière dans la zone des variables simples et 
sera donc retrouvée instantanément à chaque fois que l’on voudra l’utili- 
ser. On trouvera ensuite la variable J, puis K, puis L. 


— Se méfier des GOTO et GOSUB. En effet, cela prend du temps 
de retrouver un numéro de ligne dans un programme. Si un sous- 
programme est utilisé fréquemment, on a intérêt à le placer au début du 
programme. 
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1 GOTO 1999 REM VERS PROGRAMME 
19 REM S-PROGRAMME 


Dans la mesure du possible, remplacer les GOTO par des boucles 
FOR … NEXT ou REPEAT … UNTILL. 


— Lorsque cela est possible, simplifiez ou supprimez les tests. 


Exemples : 
39 IFV<> f THEN 199 


peut être remplacé par: 


39 IF V THEN 199 


19 IF A$=-CHRS$(8) THEN X=X-—1 
28 IF A$-CHR$(9) THEN X=X+1 


peut être remplacé par la seule ligne: 
19 X=X+(A$-CHR$(8))-(A$=-CHR$(9)) 


En effet, (A$—CHRS(8)) est une expression logique qui vaut —1 si 
elle est vraie, Ÿ sinon. De même (A$—CHRS$(9)) vaut —1 si elle est vraie 
et @ sinon. 


— Diminuez le nombre de lignes en mettant plusieurs instructions 
par ligne. Pour pouvoir mettre plus d’instructions par ligne, supprimez 
tous les blancs, ne conservez que les deux premiers caractères des noms 
de variables. 


— Utilisez les variables entières. Évitez les tableaux. 
— Supprimez les REM. 


— Enfin, réécrivez en assembleur les parties critiques du jeu. C’est 
difficile, mais cela donne des résultats bien plus spectaculaires que tout 
ce qui précède. 
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2.7 UN PETIT EXEMPLE DE 
SOUS-PROGRAMME ASSEMBLEUR 


Ce programme ne fait pas grand-chose, excepté montrer comment 
ajouter un sous-programme assembleur simple à un programme Basic. 
On trace un petit dessin au bas de l’écran HIRES, et on le déplace 
ensuite vers le haut de l’écran à l’aide du sous-programme assembleur. 


On trouve un programme principal, de 19 à 149, puis en 1999 un 
sous-programme qui trace un petit dessin, puis en 294 un sous- 
programme qui sert à amener en mémoire les instructions 6592. Nous 
allons d’abord regarder ces instructions machine. 


Le sous-programme 6592 déplace d’une ligne vers le haut une 
partie rectangulaire de l’écran HIRES. Comme chaque ligne est consti- 
tuée de 49 octets, il suffit de déplacer de 49 les octets qui correspondent 
au rectangle. 


En entrée du sous-programme, on a: 


— en 1-2, l’adresse-mémoire de l’octet qui correspond au coin 
supérieur gauche du rectangle à déplacer. 


— en 3, le nombre de lignes du rectangle. 
— en 4, le nombre d’octets de chacune des lignes du rectangle. 


En sortie du sous-programme, on a déplacé vers le haut d’une ligne 
le rectangle et: 


— en 1-2, l’adresse-mémoire qui correspond au coin supérieur 
gauche du rectangle qui a été déplacé. C’est-à-dire l’adresse que l’on 
avait en entrée moins 44. 


— en 3, ce nombre n’a pas été modifié. 
— en 4, ce nombre n’a pas été modifié. 
— 5 et 6 sont modifiés. 


Ce sous-programme DHAUT appelle lui-même deux sous- 
programmes NXLIG et PLIG qui ajoutent et retranchent respectivement 
49 à l’adresse contenue en 1-2. Ce nombre 49 est celui des octets consti- 
tuant une ligne écran, ils permettent donc de passer respectivement à la 
ligne suivante (NXLIG) et à la ligne précédente (PLIG). 
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A5 


69 
85 
99 
E6 
68 


A5 


E9 
85 
Bÿ 
C6 
68 


93 
XX 
#1 


92 
#4 
#1 
5 
#2 
#6 
XX 
91 
95 
F9 
E9 
92 


#1 


#1 
28 
#1 


92 
92 


91 


28 
91 


#2 


XX 


XX 


DHAUT 


TLIGNE 


TRCARA 


NXTLIG 


RTS 1 


PLIG 


RTS 2 


LDX 
JSR 
LDA 
PHA 
LDA 
PHA 


LDA 
CLE 
ADC 
STA 


INC 
RTS 


LDA 
SEC 
SBC 


BCS 
DEC 
RTS 


TRCARA 
TLIGNE 
2 


| 


#49 


RTS 1 


# 4ÿ 


RTS 2 


Init. compteur de lignes. 

Oter 49 à (1-2). 

Sauvegarder 1 

dans la pile. 

Sauvegarder 2 

dans la pile. 

Init. compteur d’octets par ligne. 
Recopier 1 

en 5, puis 

recopier 2en 

6. 

Ajouter 4ÿ à (1-2). 

Prendre un octet et 

le recopier, 49 octets avant. 
Décrémenter compteur d’octets. 
Si compteur positif, continuer ligne 
Sinon, décrémenter compteur lignes 
Si compteur positif, continuer. 
Terminé. Récupérer 

2et 

récupérer 

1 puis 

retour au programme Basic. 


Prendre octet de poid faible en 1 
préparer une addition 

ajouter 4fet 

ranger le résultat. 

Si pas de retenue, retour 

Sinon, propager la retenue 

Fin. 


Prendre octet de poids faible en 1 
préparer une soustraction 
retrancher 48 et 

ranger le résultat. 

Siil y a retenue, retour 

Sinon, décrémenter poids fort 
Fin. 


Ce sous-programme est mis en mémoire par les lignes 2909 à 2070. 


201% A est l'adresse-mémoire où l'on va placer les codes. #9C009 corres- 
pond au début de la zone de stockage des caractères semi- 
graphiques en mode HIRES. Comme le programme n'utilise pas les 
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2920 


2059 


2069 


caractères semi-graphiques, on n'hésite pas à les écraser, car on a 
entre #9C00 et #A000, 1 Koctet de mémoire dans lequel le Basic 
ne va pas écrire, tant que l'on ne frappe pas reset. 


à 2040 Les 65 octets sont placés en mémoire à partir de l'adresse 
A. 


Le sous-programme DHAUT est le premier, son adresse DH est 
égale à A. Comme DHAUT fait 41 octets, le second sous- 
programme NXTLIG débute à l'adresse NX=DH+41. Et comme 
NXTLIG fait 12 octets, le troisième, PLIG, débute donc à l'adresse 
PL=NX+12. 


Après avoir calculé les adresses DH, NX et PL des sous- 
programmes, on peut ajouter au sous-programme les adresses de 
PLIG et NXTLIG, en DH+3 et DH+22 respectivement. 


Pour utiliser DHAUT, on commence par placer en (1-2) l’adresse 
de l’octet qui correspond au coin supérieur gauche du rectangle à dépla- 
cer, ce qui est fait en 69. En 7, on place en 3 le nombre de lignes du 
rectangle, 41, et on place en 4 le nombre d’octets par ligne de ce 
rectangle, soit 9. Le sous-programme est appelé à la ligne 119 par CALL 
DH. Cet ordre est situé dans une boucle, le sous-programme est appelé 
159 fois de suite, on déplace donc de 154 lignes vers le haut le dessin. 
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Pour finir, voici le listing du programme: 


10 REM FACE DE LUNEX%XX XX 4 XX XX 4H KCXK ACNCKX 
20 HIRES 
30 GOSUER 2000 


40 =: 


50 X=50+150OXRND (1) :Y=170 

60 DOEE 1, HA000+(V-20) X40+X/6-—5 
70 PFOHE S,4i1:FOKE 4,9 

80 MUSIC 1,1,1,0:PLAY 1,0,5,100 
90 GOSUR 1000 

100 FOR Izi TO 150 

110 CALL DH: SOUND 1,200-T7T,15 
120 NEXT 


140 

1000 
1010 
1020 
1050 
1040 
1050 
1040 
1070 
1980 
1090 
1100 
1110 
1120 
1150 
1140 
2000 
2010 
2020 
F050 
2040 
2050 
2060 
2070 
2080 
2090 


REM DESSIN 
CURSET X,Y,5 

FOR R=1i TO 2O:CIRCLE R,1:NEXT 
FOR I=-1 TO 1 STEF 2 

CURSET X+I*X8,Y-10,0 

FOR J=1 TO S:CIRCLE J,O:NEXT J 
CURSET X+I47,Y-10, 1 

FOR J=0 TO 6 

CURSET X+I4KJ,Y-J"2/6+10,0 
CURSET X+IKJ,Y-J"2/6+11,0 

NEXT J 

NEXT I 

CURSET X-26,Y-20,3 

FILL 40,1,1+7XRND (1) 

RETURN 

REM SOUS-PROGRAMMES 6502 
A=#9CO0 

FOR I=A TO A+64 

READ V:POKE I,V 

NEXT I 

DH=A: NX=DH+41: FL=NX+12 

DOHE DH+3,PL:DOKE DH+22,NX 
RETURN 


REM DHAUT. ss ssumnsumomuuse sunssus 
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106 


2100 
2110 
2120 
2150 
2140 
2150 
2160 
2170 
2180 
2190 
sen 

210 


Le a din 
2230 


Se 5 et 


DATAHA6, #03, H2O,H#FF, #FF, HAS, #O1 
DATA#49, HAS, #02, #48, #A4, #04, HAS 
DATA#O1,#85, 405, #05, #02, #85, #O6 
DATA#?20,HFF,HFF. HE, #O1,#91,#05 
DATA#BS, #10,HF9, HCA, #10, #E9, #66 
DATA#BS, #02, #68, #05, #01, #60 

REM NXTLIGeeesoscoceceneuse Ne 
DATA#AS, #01,#16, #69, #28, #05,#01 
DATAH9O, HO2, HE6, #02, #60 


REM PLIG....... PS ES 
DATAHAS, 401,428, #E9, #28, H85, #01 
DATAHEO, #02,4#C6, #02, #60 


Annexes 


3.1 TABLE ASCII DE L'ORIC 











Effet de la touche ou 


Touche de PRINT CHR${code) 


pas de touche Aucun 


CTRL-A relit un caractère 
sur l'écran. 


Aucun 


CTRL-C interrompt un 
programme basic. 


Provoque un affichage 
double. Les caractères 
suivants seront affichés 
deux fois chacun. Pour 
annuler, utiliser de nou- 
veau CHR${(4) ou CTRL-D 


Aucun 
















Effet de PLOT X,Y,code 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont noirs. 





Tous les caractères affichés 
sur la ligne Ÿ et situés après 
la colonne X sont rouges. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont verts. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont jaunes. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont bleus. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont violets. 
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Code 
ASCII 


19 


11 


12 


108 


Touche 


CTRL-F 


CTRL-G 


CTRL-H ou + 


CTRL-I ou + 


CTRL-J ou À 


CTRL-K ou T 


CTRL-L 


Effet de la touche ou 
de PRINT CHR${code) 


Supprime le ‘’plop” que 
l'on entend lorsque l'on 
frappe une touche. Pour 
retrouver le bruit, réutili- 
ser CHR$(6) ou CTRL-F. 


Fait retentir PING. 


Déplace le curseur un 
cran à gauche. 


Déplace le curseur un 
cran à droite. 


Déplace le curseur un 
cran vers le bas. 


Déplace le curseur un 
cran vers le haut. 


Efface l'écran. . 


Effet de PLOT X,Y,code 





Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont bleus ciels 
(cyan). 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont blancs. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront : 

— en hauteur simple, 

— en affichage fixe, 

— jeu de caractères 
standard. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne Y seront: 

— en hauteur simple, 

— en affichage fixe, 

— jeu de caractères semi- 
graphique. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en double hauteur, 

— en affichage fixe, 

— jeu de caractères 
standard. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en double hauteur, 

— en affichage fixe, 

— jeu de caractères semi- 
graphique. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en simple hauteur, 

— en affichage clignotant, 
— jeu de caractères 
standard. 


Code 
ASCII 


13 


16 


17 


18 


19 


29 


21 


Touche 


CTRL-M ou 
RETURN 


CTRL-N 


CTRL-0 


CTRL-P 


CTRL-Q 


CTRL-R 


CTRL-S 


CTRL-T 


CTRL-U 


Effet de la touche ou 


de PRINT CHR${code) 


Envoie le curseur au 
début de la ligne suivante. 


Efface la ligne ou se 
trouve le curseur. 


Aucun. 


Aucun. 


Supprime le curseur. Pour 
le retrouver, réutiliser 
CHRS(17) ou CTRL-Q. 


Aucun. 


Supprime l'affichage. 
Pour le rétablir, réutiliser 
CHR$(17) ou CTRL-S. 


Passage en minuscules. 
Pour obtenir une majus- 
cule, utilisez SHIFT. Pour 
revenir en majuscules, 
réutilisez CHR$(20) ou 
CTRL-T. 


Aucun. 


Effet de PLOT X,Y,code 





Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en simple hauteur, 

— en affichage clignotant, 
— jeu de caractères semi- 
graphique. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en double hauteur, 

— en affichage clignotant, 
— jeu de caractères 
standard. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront : 

— en double hauteur, 

— en affichage clignotant, 
— jeu de caractère semi- 
graphique. 

Le fond (PAPER) de la ligne 


Y, à partir de la colonne X, 
sera noir. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera rouge. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera vert. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera jaune. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera bleu. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera violet. 
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Code 
ASCII 


22 


23 


24 


25 


26 


27 


28 


29 


110 


Touche 


CTRL-V 


CTRL-W 


CTRL-X 


CTRL-Y 


CTRL-Z 


CTRL-{ ou ESC 


CTRL-/ 


CTRL-] 


Effet de la touche ou 


de PRINT CHR${code) 


Aucun. 
Aucun. 


CTRL-X annule la ligne en 
train d'être frappée. 


Aucun. 


A la même action que 
ESC. Voir ci-dessous. 


Ce caractère n'est pas 

affiché, et ne déplace pas 
le curseur. Par contre, le 
caractère suivant sera af- 
fiché après que ses bits b, 
et b4 aient été mis à zéro. 


Aucun. 


Normalement, lorsque 
l'on frappe sur une touche 
ou que l'on exécute 
PRINT, aucun caractère 
n'est affiché dans les deux 
premières colonnes de 
l'écran. Le caractère per- 
met d'utiliser ces colon- 
nes. Mais alors les textes 
sont blancs sur fond noir, 
car les caractères com- 
mandant la couleur de 
l'écran et du texte, qui se 
trouvent normalement 
dans ces deux colonnes, 
sont écrasés. Réutilisez 
CHR$(29) ou CTRL-] 
pour revenir comme 
avant. 


Effet de PLOT X,Y,code 





Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera cyan. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne Y, 
sera blanc. 


Passage en texte 60 Hz. Ne 
pas utiliser, perturbe l'affi- 
chage. 


Passage en texte 60 Hz. Ne 
pas utiliser. 


Passage en texte 50 Hz, 
rend l'affichage normal. 


Passage en texte 50 Hz, 
rend l'affichage normal. 


Passage en graphique 60 Hz. 
Ne pas utiliser, perturbe 
l'affichage. 


Passage en graphique 60 Hz. 
Ne pas utiliser, perturber 
l'affichage. 


Code 
ASCII 











30 


31 


32 
33 
34 
35 
36 
37 
38 
39 
49 
a1 
42 
43 
44 
45 
46 
47 
48 
49 
59 
51 
52 
53 
54 
55 
56 





CTRL-DEL 


barre d'espacement 


_ 


DO OO où À À N 


Pas de touche 













Effet de la touche ou 
de PRINT CHR${(code) 





Effet de PLOT X,Y,code 










CHR$(30) renvoie le 

curseur dans le coin supé- 
rieur gauche de l'écran, 
qui n'est pas effacé. 


Passage en graphique 50 Hz. 
Affichage normal. 


Aucun. 





Passage en graphique 50 Hz. 
Affichage normal. 





Affiche un espace, un blanc 
Affiche un ! 

Affiche un ” (guillemet) 
Affiche un # (dièse) 
Affiche un $ (dollar) 
Affiche un % 

Affiche un & 

Affiche un” (apostrophe) 
Affiche un ( 

Affiche un ) 

Affiche un * (signe de multiplication) 
Affiche un + 

Affiche un, 

Affiche un — 

Affiche un. 

Affiche un / (signe de division, slash) 
Affiche un @ 

Affiche un 1 

Affiche un 2 

Affiche un 3 

Affiche un 4 

Affiche un 5 

Affiche un 6 

Affiche un 7 

Affiche un 8 
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Code 


ASCII Touche Effet 
57 9 Affiche un 9 
58 : Affiche un : (colon) 
59 ; Affiche un ; (semi-colon) 
69 < Affiche un < 
61 = Affiche un = 
62 > Affiche un > 
63 ? Affiche un ? 
64 @ Affiche un @ 
65 A Affiche un A 
66 B Affiche un B 
67 C Affiche un C 
68 D Affiche un D 
69 E Affiche un E 
70 F Affiche un F 
71 G Affiche un G 
72 H Affiche un H 
73 [ Affiche un | 
74 J Affiche un J 
75 K Affiche un K 
76 L Affiche un L 
77 M Affiche un M 
78 N Affiche un N 
79 O Affiche un O 
80 P Affiche un P 
81 a Affiche un Q 
82 R Affiche un R 
83 S Affiche un S 
84 je Affiche un T 
85 U Affiche un U 
86 V Affiche un V 
87 W Affiche un W 
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Code 
ASCII 


88 
89 
99 
91 
92 
93 
94 
95 
96 
97 
98 
99 
199 
191 
192 
193 
194 
195 
196 
197 
198 
199 
119 


112 
113 
114 
115 
116 
117 


Touche 


NPCEX 


TT 


Dre 


pas de touche 


T'ON eOUEOUTUE 


CHOC OUT 'O 2 EL CURE 


Affiche un X 
Affiche un Y 
Affiche un Z 
Affiche un l 
Affiche un \ 
Affiche un | 
Affiche un 
Affiche un £ 
Affiche un (©) 
Affiche un a 
Affiche un b 
Affiche un c 
Affiche un d 
Affiche un e 
Affiche un f 
Affiche un g 
Affiche un h 
Affiche un i 
Affiche un) 
Affiche un k 
Affiche un | 
Affiche un m 
Affiche un n 
Affiche un o 
Affiche un p 
Affiche un q 
Affiche un r 
Affiche un s 
Affiche un t 
Affiche un u 


Effet 


(crochet ouvrant) 
(backslash) 
(crochet fermant) 


L 


(livre) 


Pour obtenir les 
minuscules au clavier, 
frapper d'abord 
CTRL-T 
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Code 


ASCII Touche Effet 
118 V Affiche un v 

119 W Affiche un w 

120 X Affiche un x 

121 Ÿ. Affiche un y 

122 Z Affiche un z 

123 { Affiche un 

124 I Affiche un | 

125 | Affiche un 

126 pas de touche Affiche un carré clair 
127 DEL DEL annule un caractère 


CHR$(127) affiche un carré sombre. 





Les codes 128 à 255 provoquent les mêmes effets 
que les codes de @ à 127. Avec deux petites diffé- 
rences : 

— les codes 128 à 159 sont affichés, alors que les 
codes @ à 31 ne le sont pas. CHR$(128) a le 
effet que ESC , CHR$(129) a le même effet que 
ESCA, …, etc. 

— les caractères correspondant aux codes de 128 à 
255 sont affichés en vidéo inverse, lorsqu'on les 
utilise avec PLOT. 


3.2 TABLE DES ATTRIBUTS VIDÉO 


Les codes ASCII 9 à 31 ont une action spéciale lorsqu’on les place 


dans la zone mémoire correspondant à l’écran TEXT ou HIRES. 


Ils permettent de choisir la couleur de l’encre, du fond, le jeu de 


caractère, normal ou semi-graphique, la taille des caractères et le 
clignotement. 
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Pour placer un code dans la mémoire-écran, vous pouvez: 


— Exécuter POKE adresse, code 


— Exécuter PLOT X,Y,CHRS$(code) ou PLOT X,Y,code 
— Exécuter PRINT CHR$(27); CHR$(code+64) 


— Frapper la touche ESC puis la touche dont le code ASCII vaut 
code +64. 


Par exemple, pour code=ÿ, code+64 vaut 64 et CHRS$(code+64) 
vaut ” @ ”. Pour code=1, code+64 vaut 65 et CHRS$(code+64) vaut 
29; AC: 


Chacun de ces codes est actif depuis l’endroit où il se trouve 
jusqu’à la fin de sa ligne. 


Attributs de @ à 15 













Action 


Avec PRINT 
de sur le système vidéo 


Depuis le clavier 










PRINT CHRS(27);" encre noire 







PRINT CHRS(27);"A" encre rouge 








PRINT CHR$(27);"B" encre verte 


PRINT CHR$(27);"C" encre jaune 










PRINT CHR$(27);" D" encre bleue 







PRINT CHR$(27);"E" encre magenta 







PRINT CHR$(27);"F" encre cyan 











PRINT CHRS$(27);"G" encre blanche 





PRINT CHRS(27);"H" simple hauteur, fixe, 


normal 





PRINT CHR$(27);"1" simple hauteur, fixe, 


semi-graphique 
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PRINT CHRS(27);"J" ESCJ double hauteur, fixe, 
normal 


PRINT.CHRS(27);"K" ESC K double hauteur, fixe, 
semi-graphique 


PRINT CHR$(27);"L" ESCL simple hauteur, clignotant, 


normal- 
PRINT CHRS$(27);"M" ESC M simple hauteur, clignotant, 


semi-graphique 


PRINT CHRS$(27);"N" ESCN double hauteur, clignotant, 
normal 
PRINT CHR$(27);"O0" ESC O double hauteur, clignotant, 


semi-graphique 








Les codes de Ÿ à 7 permettent de fixer la couleur de l’encre, tandis 
que les codes 8 à 15 sélectionnent le type de caractère employé, un 
caractère peut en effet être: 


— normal ou semi-graphique 
— simple hauteur ou double hauteur 
— fixe ou clignotant 


Attributs de 16 à 31 


Avec POKE 
ou PLOT Avec PRINT Depuis le clavier 
code 


Action 
sur le système vidéo 


PRINT CHR$(27);"P" écran noir 


PRINT CHR$(27);"Q" écran rouge 


PRINT CHRS$(27);"R" écran vert 
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19 PRINT CHR$(27);"S" ESCS écran jaune 





29 PRINT CHRS(27);"T" ESCT écran bleu 

21 PRINT CHR$(27);"U" ESC U écran magenta 

22 PRINT CHR$(27);"V" ESC V écran cyan 

23 PRINT CHRS$(27);"W" ESCW écran blanc 

24 PRINT CHRS$(27);"X" ESC X mode texte 
en 60 Hz 

25 PRINT CHR$(27);"Y" ESC Y mode texte 
en 60 Hz 

26 PRINT CHR$(27);"Z" ESCZ mode texte 
en 50 Hz 

| 

27 PRINT CHRS(27):" { ” ESC | mode texte 
en 50 Hz 

28 PRINT CHRS(27);" | ” ESC | mode graphique 
en 60 Hz 

29 PRINT CHR$(27):" | ” ESC | mode graphique 
en 60 Hz 

30 PRINT CHRS$(27); pas de touche |mode graphique 

CHR$(39) en 50 Hz 
31 PRINT CHRS(27); ESC DEL mode graphique 
CHRS$(31) en 50 Hz 











Les codes de 16 à 23 permettent de fixer la couleur de l’encre, 
tandis que les codes 24 à 31 commandent le mode vidéo. On peut: 


— être en mode texte (TEXT et LORES) ou en mode graphique 
(HIRES) 


— balayer l’écran 50 fois ou 60 fois par seconde. En France, le 
balayage se fait en 50 Hz. 
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3.3 LE MICROPROCESSEUR 6502 


Le microprocesseur 6592, qui équipe votre ORIC, est capable de 


manipuler, 


de traiter des données de 8 bits (octets), et engendre des 


adresses de 16 bits. Il dispose de 7 registres: 


PCH 


* X et Y : 


accumulateur À 


index X 


index Y 


il 


PCL compteur ordinal PC 


pointeur de pile S 


INIVIS[D[1[ZTC]  étatP 


: Ce registre de 8 bits contient le résultat de toutes les opéra- 


tions, logiques ou arithmétiques. 


Ces deux registres de 8 bits peuvent servir de compteur ou 
servent à construire une adresse. 


: Ce registre de 16 bits contient l’adresse de la prochaine ins- 


truction à exécuter. 


: Ce registre de 8 bits contient l’octet de poids faible du poin- 


teur de pile. L’octet de poids fort vaut 1, car par construction 
du 6592, la pile est située entre 199 et 1FF (adresses hexa- 
décimales). 


: Ce registre de 7 bits contient 7 indicateurs. 


N Indicateur de résultat négatif. 
V Indicateur de débordement (Overflow). 
B Indicateur de BREAK. 


D Indicateur de mode de calcul décimal. 


I Indicateur d’interruptions masquées. 


Z Indicateur de résultat nul (Zéro). 


Retenue (Carry). 


Le 6592 dispose de 13 modes d’adressage qui sont : 


ADC 


AND 


ASL 


BCC 


Immédiat 

Page zéro 

Page zéro indexé par X 
Absolu 

Absolu indexé par X 
Absolu indexé par Y 
Indirect pré-indexé par X 
Indirect post-indexé par Y 
Accumulateur 

Implicite 

Relatif 

Indirect 

Page zéro indexé par Y 


ex : LDA #FF 


LDA 1 
LDA 1,X 

LDA 1990 
LDA 1999,x 
LDA 1409,Y 
LDA (1909,X) 
LDA (14946),Y 
ROL 

TAX 

BNE 1909 
JMP (1990) 
LDX 1,Y 


Le 6592 dispose de 56 instructions qui sont : 


L'opérande est ajouté au bit C de retenue et à l'accumulateur, le 


résultat est dans l'accumulateur. 


On effectue le ET logique bit à bit de l’accumulateur et de l’opé- 
rande, le résultat est dans l'accumulateur. 


L'opérande est décalé d'un bit vers la gauche. 


7 


o 


ee 


Branchement relatif lorsque C = @ (pas de retenue). 
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BCS 
BEQ 
BIT 


BMI 
BNE 
BPL 
BRK 
BVC 
BVS 
CLC 
CLD 
CLI 
CLV 
CMP 


CPX 
CPY 
DEC 
DEX 
DEY 
EOR 


INC 
INX 
INY 
JMP 
JSR 
LDA 
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Branchement relatif lorsque C = 1 (retenue). 
Branchement relatif lorsque Z = 1 (résultat nul). 


Positionne les indicateurs suivant le résultat de la comparaison 
bit à bit de l'opérande et de l'accumulateur. 


Branchement relatif lorsque N = 1 (résultat négatif). 
Branchement relatif lorsque Z = @ (résultat non nul). 
Branchement relatif lorsque N = @ (résultat positif). 
Break, déroutement software. 

Branchement relatif lorsque V = @ (pas d'overflow). 
Branchement relatif lorsque V = 1 (overflow). 
Positionne à @ l'indicateur C (carry). 

Positionne à @ l'indicateur D (mode décimal). 
Positionne à @ l'indicateur | (interruptions démasquées). 
Positionne à @ l'indicateur V (overflow). 


Compare l'accumulateur t l'opérande et positionne en consé- 
quence les indicateurs. 


Compare le registre X et l'opérande, positionne les indicateurs. 
Compare le registre Y et l'opérande, positionne les indicateurs. 
Décrémente d'une unité l'opérande. 

Décrémente d'une unité le registre X. 

Décrémente d'une unité le registre Y. 


“OU” exclusif bit à bit de l’opérande et l'accumulateur, le résultat 
est dans l'accumulateur. 


Incrémente l'opérande d'une unité. 
Incrémente le registre X d'une unité. 
Incrémente le registre Y d'une unité. 
Branchement absolu inconditionnel. 
Appel d'un sous-programme. 


Charge l'opérande dans l'accumulateur. 


LDX 
LDY 
LSR 


NOP 
ORA 


PHA 
PHP 
PLA 
PLP 
ROL 


ROR 


RTI 
RTS 
SBC 
SEC 
SED 
SEI 


Charge l'opérande dans le registre X. 
Charge l'opérande dans le registre Y. 


L'opérande est décalé d'un bit vers la droite. 


7 ( 
rs EC 


Pas d'opération. Ne fait rien. 


"OU" bit à bit de l'opérande et l'accumulateur, le résultat est dans 
l'accumulateur. 


Empile l'accumulateur. 
Empile les indicateurs (registre P). 
Dépile l'accumulateur. 
Dépile les indicateurs (registre P). 


Rotation d'un bit vers la gauche au travers de C de l'opérande. 


7 () 


opérande : 


Rotation d'un bit vers la droite au travers de C de l'opérande. 
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CE 


Retour de sous-programme de traitement d'interrruption. 
Retour de sous-programme. 

Retranche à l'accumulateur l'opérande et la carry. 
Positionne à 1 l'indicateur C (carry). 

Positionne à 1 l'indicateur D (mode décimal). 


Positionne à 1 l'indicateur | (masque les interruptions). 
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STA 
STX 
STY 
TAX 
TAY 
TSX 
TXA 
TXS 
TYA 
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Range l'accumulateur en mémoire. 
Range le registre X en mémoire. 
Range le registre Y en mémoire. 
Recopie À dans X. 

Recopie A dans Y. 

Recopie S (pointeur de pile) dans X. 
Recopie X dans A. 

Recopie X dansS. 

Recopie Ÿ dans A. 





NNNMMMANN NNNMMMANN rNNmm 






NO" 9 CZ UN 
SayIpou 
S1N9189/PUJ 


S2920,p 
21/QUON 











x'1edo Sv x'njosge 
4940 Sy njosqe 
x'19d0 Sy x'019z eBed 
48d0 SV 019z oBed 


SV | inejepnuwunose 





A'(8d0) aNv A'(19811pul) 





(X'18d0) GNv (x'9011put) 
A‘12d0 ON A'njosqe 
x'18d0 GNvY x'njosqe 

4ed0 GNY njosqe 
x'12d0 GNY X'019z eBed 
12d0 AGNY 019z eBed 
sed0# GNV Jelpauul 








A'18d0) 3qv A'(9811pul) 
(X'18d0) 3qv (xX'19811pui) 
A‘12d0 5qv A'njosqe 
x'10d0 5qv x'njosqe 
4ed0 5qv njosqe 
x'18d0 95qv X'019z e6ed 
4ed0 5qv 0197 eBed 
sedo# 3qv elpauuuul 





1n9/quesse 
axeJuAS 


sebessaipe p 
SSpOW 


























uone12dO 


euyonef e eBeje99p 


1qae3q,13, 


V+-OI+W+v 


9 = 2 is eyoueiq 





vVEW'v 











1Sv 





av 


9qav 


enbiuowauy 


es) 








123 


jnejes 


jnee1 





ey1o1duul 


ee 


1840 -4g 


A 
28 4ed0 11g njosqge 
74 4edo 11g o19z eBed 


S19320,P | YX3H 
2/QUON | 2po3 





EC 
me le) 
ECS 









NAME OLSZEN 
Sapou 
SIN9)82/PUJ 


1n9/quiasse sebessaipe p 


aexe]uAS SIPOW 








L = AIS eyoueiq 





Q = As euoueiq 


jueuia}no12p 





@ = NS eyoueiq 


@ = z Is euoueiq 


L=NIS euoueiq 


AN 
NW 
W'v 


L = Z IS euoueiq 


L = 9 !S euyoueiq 


uoneodO 


919 


SAS 


9A8 


x4u8 


148 


3Ng 


IWg 


118 


038 


S9a 


enbuoweuy 
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NEO 
SglHpou 
sINn8}89/PUJ 


1840 149 
1840 149 
iedo# Ad9 


49d0 Xd9 
4ed0 xd9 
1edo# xXd9 


A‘(18d0) 4W9 
(x'18d0) 4W9 


A‘18d0 4W9 


x'19d0 4W9 
4ed0 4W9 
x'1ed0 4W9 
19d0 4W9 
do# 4W9 


S29]20,p 1N8/QUW8SSE 
91/QUON axeJuAS 


njosge 
019z eBed 
Jelpauuuul 


njosqge 
019z o6ed 
Jepeuul 


À'(9811pul) 
(xX'81/pui) 
A'njosqe 
x'njosqge 
njosqe 
x'019z eBed 
019z e6ed 
le/pauiuui 


sebessaeipe p 


Sepoy 


sineze2ipul 


sine}e9lpul 


Ssine}e9pu! 


N—A lueains 
sa] euuorisod 


W—Xx jueains 
se| euuoriIsod 


N—v iueains 
sa] euuorisod 


| | 


uone19dO 





nu 
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LE XNI e}o1duul 


X'18d0 AN 
Jedo 5NI 


x'1ed0 5N] 
48d0 5NI 


x'njosqge 

njosqe 
x'019z eBed 
o19z eBed 








A'18d0) 403 A‘(39811puI) 








(xX'18d0) 403 (x'9811pui) 
A'18d0 H03 A'nlosqe 
x'18d0 403 x'njosqe 

48d0 403 nosqe 
x'18d0 403 x'019z eBed 
48d0 403 0192 Bed 
18d0# 403 1elpguuul 





eoljduut 





eyoijduul 















x'18d0 53q x'njosqe 
48d0 53q njosqe 
x'18d0 93q x'019z eBed 
e. ee ee © Z NN 1940 953q 0192 eBed 
Pa No Z N | se00,p Jna/quesse sebesselpe,p 
SIN9189/puJ 8/QUION exejuAS sapoy 








XEL+X 


WeIL+W 





uge11q 


HSn|9xe ,, no k. 
vV+W © v 


uone1240 


Jo au 


XSLEX 


Wei—W 


XNI 


ONI 


403 





A3Q 


3 


_f 


93q 


anbluouauy 
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NNNMM 
© 
om 


. 0. 0 0 Z NN 


NNNMMMANN 
Q 
[re] 


99 
9+ 


89 





NS QI 
SglJIPOUI 


s1N8]29/pu/ 2/QUON | 8p0] 





A'(18d0) ya7 
(xX‘12d0) y q7 





S19120,P | VX3H 1nejquesse 


axeJuAS 


A'12d0 xq7 
Jedo xa7 
A'1d0 xgq7 
4ed0 xq7 
Jedo# xq7 









A'10d0 yg7 
x'18d0 y q7 
4ed0 \q7 
x'18d0 yq7 
18d0 \g7 
1edo# \q71 








(1edo) 4Wr 
18d0 4Wr 


ANI 








AnIosqe 
njosqe 
ÀA'019z eBed 
019z Bed 
ielpauiuul 





A'(081/pul) 
(x‘19811put) 
A‘nlosqe 
x'njosqe 
njosge 
x'019z eBed 
019z eBed 
jelpauiuil 


19811puI 
njosqe 


sabesseipe,p 


SepOW 





X-W 


V+W 


H9d+{(Z+9d) 
19d+(1+9d) 
+94 eliduse 











H9d+(T+9d) 
19d+(1+9d) 





AFLTA 


uonei9d0O 
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xa71 


va 


usr 


dr 


ANI 


, 





enbluoweuy 


J_ veu) 



























A'{8do0) yvO A‘(eupui) 
{(xX'18d0) y4O (xX'10e11pui) 
A'18d0 YHO Anjosqe 
x'18d0 vHO x'njosqe 
18d0 YHO njosqe 
x'18d0 yyO x'019z eBed 
1edo yHO 0187 eBed uqe1q,.1nO. 
18d0# YHO Jelpauuuul VWNAV 


- NNNMMMANN - 




















€ 39 x'18d0 4s7 x'njosqe 

£ 3ÿ 4ed0 4s7 njosqe 

2 9ç x'18d0 yS7 x'019z eBed 

t 9+ 4edo 4s7 019z eBed e}loip e 
e. ee à Zz ÿ L vt #S71 | 1neje/nwnose 11q un,p e6e/e99p 








x'18d0 1g7 x'njosge 





48d0 1g7 njosqe 
x'18d0 4g7 x'019z eBed 
4edo 1g7 o19z eBed 
Jodo# 1 7 lelpauuuui 


vo 
dON 
Le 
nr 
Jna/quesse sebessaipe p 
… : ° ss Joue 









ÉD ZAN 
seypou 
SIN9)89/PUJ 





\ gq 








S19120,P 
9/QUION 





Nan 9177 
SalJIPOu 
S1N8}29/PUJ 


S2920,p 
91/QUON 


ewuweiBoid-snos 8p 1n0191 
uoljdn118}uI p 1n091 


x'1ed0 HO x'njosqge 

4ed0 HOH njosqe 

x'12d0 HO x'019z eBed 
Jed0 HOH 019z ebed 2}01p e 
HO | 1neje/nuwunose 11q un,p uolje]oH 


x'18d0 104 x'njosqe 

4edo 704 njosge 

x'‘12d0 104 x'019z e6ed 
12d0 104 019z e6ed eyonef e 
7104 | ineje/nwunose 11q un, p uolje]oy 


d elidep 
v elidep 


d elidus 


1najquiesse sebesseipe p 


exejuAS Sepow HOA81000 


104 
Um 
ner 


enbIuougun 





129 

























t4 A'(8d0) y1s A'(19811puI) 
rA (x'18d0) y1s (x'9811put) 
€ A'18d0 Y1S A'nIosqe 
£ x'10d0 y1S x'njosqe 
£ 1240 Y1S njosqge 
t x'18d0 y1S x'019z eBed 
VA 42d0 15 0197 eBed 
A A'(18d0) gs A'(19811put) 
té (x'18d0) gs (xX'19811put) 
€ A'18d0 9gs AnIosSqe 
€ x'18d0 9gsS x'njosqe 
£ 1840 5gsS njosqe 
t x'‘19d0 9gs x'019z eBed 
t 4ed0 5gs 019z eBed 
NIET: ZEN CA sedo# 9gs jelpeuuuil 









NOMME INZEN 


SgyIpou 
S1N929/PU) 








S19]20,p Jna/quesse sabesseipe,p 
8/QUON sexeuAS SapOW 








W+v vis 

[Xi 13S 
Gt a3s 
21 93S 





V+I9-W—v 





uoneiad0 anbIuUouauny 
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IPROUEZLN 
SayIpou 
SIN8J89/pU/ 


S29]20,p 
91/QUON 


e}l91duul 











eyoijduul 


eyoiduul 





eyolduul 


njosqe 
X'019z eBed 
019z e6ed 


4edo X1S njosqe 
A18d0 XIS ÀA'019z eBed 
4edo X1S 019z e6ed 


In8Jq esse sebessae/pe p 
SaxejuAS SS2pOW 


uoneisdO 
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Imprimerie de la Manutention à Mayenne 
Dépôt légal: avril 1984 
N° d’Éditeur: 4085 





Bien sûr, votre ORIC sait compter à une vitesse vertigineuse, 
calculer sans erreur des courbes mathématiques complexes, il 
sait comment extraire des racines carrées en un clin d'œil, et 
bien d'autres choses encore. 


Mais cela, tous les ordinateurs, du plus gros au plus petit, 
savent le faire. (ORIC-1 à la conquête des jeux » se propose de 
vous entraîner dans un tout autre univers de programmes, celui 
des jeux, des dessins en couleur, des sonorités synthétiques in- 
formatiques. Vous y rencontrerez une gentille petite chenille, 
six caméléons et quelques gloutons. Vous voyagerez dansl'espace 
intersidéral. Vous verrez la tour de Hanoï, un grand mur de 
briques. Vous vous mesurerez au Master-Mind. 


Nul doute qu'après tout cela, vous désiriez mieux connaître 


_ votre ORIC-1 et, pourquoi pas, programmer vos jeux. Pour vous 


aider et vous guider dans ce labyrinthe aux 65536 adresses, 
«ORIC-1 à la conquête des jeux» vous révèle le contenu de la 
mémoire de l'ORIC-1, comment redéfinir les caractères, tous les 
trucs des modes HIRES et TEXT, et même, mais oui, comment 
fabriquer des lignes de programme Basic avec un autre program- 
me... 


Bon amusement | 
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